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INTRODUCTION 


WHAT  IS  CAS  HI I 


>  CASHII  is  a  FORTRAN  program  which  is  available  to  be  run  on 
contractors  own  computers.  Of  course,  even  though  the  program 
is  written  as  generically  as  possible,  it  is  possible  that 
some  conversion  effort  would  be  required  in  order  to  make  it 
execute  correctly.  Therefore,  working  versions  of  the  program 
are  maintained  on  two  commercial  computer  service  companies, 
COMMERCIAL  General  Electric  Information  Services  and  Boeing  Computer  Services. 
VENDORS  Contractors  may  elect  to  use  the  program  on  either  of  these 

companies.  Contracting  Officers  use  the  program  on  the  Copper 
Impact  System  (BCS).  Contractors  are  not  permitted  to  access  the 
Copper  Impact  System.  However,  every  effort  is  made  to  insure 
that  the  program  is  the  same  in  all  places. 

_ _ _  Each  vendor  has  identified  a  contact  to  assist  in  initial  set 

For  BCS  the  name  and  address  is  : 

M.  Rosenberg 

BCS 

7980  Gallows  Road 
Vienna,  Va  22180 
(  703)  8  2  1-6-24-0# 

B.  Clarke 
GE IS  Co 

1300  N.  17th  Street  -  Suite  1100 
Arlington,  Va.  22209 
(703)  27  6-4046 

CASHII  is  the  name  of  a  computer  program  developed  by  the 
Department  of  Defense.  Contractors  who  request  flexible 
progress  payments  must  use  CASHII  to  provide  the  relevant 
calculations  on  flexible  payment  rate  and  contractor 
Investment  ratio.  This  data  must  also  be  supplied  to 
contracting  officers  who  use  CASHII  to  verify  the 
contractors  data. 


VtNDOR 

CONTACTS 


up  of  the  CASHII  system, 


For  GEISCo  contact 


This  document  has  ben  approved 
h  r  public  release  and  lalv,  its 
-1-  *; ib; then  is  unlimited. 


INTRODUCTION  CONT'D 

WHY  USE  CAS  HI  I 


The  following  is  excerpted  from  the  Defense 
Acquisition  Regulations  Appendix  E  Part  5:  E-530.1 

Background  and  Policy.  Paying  progress  payments 
assists  in  financing  a  contractor's  performance  and 
reduces  the  contractor's  investment  in  its  work  in 
process  inventory.  The  actual  investment  held  by  a 
contractor  in  work  in  process  Inventory  is  Influenced 
by  a  number  of  factors  in  addition  to  progress  payments, 
such  as  delivery  schedules,  cash  management  practices, 
and  Government  payment  practices.  Progress  payment 
amounts  that  are  determined  by  using  uniform,  standard 
progress  payment  rates  (i.e.,  902  or  952  under  E-503) 
are  insensitive  to  these  other  factors  influencing 
Investment  and,  as  a  consequence,  result  in  investments 
by  contractors  in  work  in  process  inventory  that  vary 
among  contractors  and  across  contracts;  on  the  other 
hand,  flexible  progress  payment  rates  (expressed  as  a 
percentage  that  will  be  applied  to  costs  to  determine 
the  amount  payable  as  a  progress  payment  rate)  are 
designed  to  tailor  more  closely  the  progress  payment 
rate  to  the  cash  needs  for  financing  performance  of  a 
particular  contractor  for  a  given  contract. 

For  flexible  progress  payments,  ca6h  needs  are  measured 
and  projected  in  relation  to  investment  underlying  the 
work  in  process  inventory  over  the  life  of  the  contract. 
Total  investment  is  measured  by  a  weighted  average  of 
total  costs  paid  by  the  contractor  to  complete  performance 
of  the  contract,  and  the  contractor's  Investment  is  the 
weighted  average  of  the  amount  not  paid  by  the  Government. 
The  DOD ,  as  a  matter  of  policy,  has  concluded  that  a 
contractor  should  retain  at  least  a  52  investment  in 
work  in  process  inventory  over  the  life  of  the  contract. 
Accordingly,  the  DOD  will  make  progress  payments  at  a 
rate  (expressed  as  a  whole  number)  that  is  the  highest 
rate  which  yields  a  corresponding  investment  by  the 
contractor  in  work  in  process  inventory  of  not  less 
than  52.  This  progress  payment  rate  is  to  be  determined 
by  the  DOD  Cash  Flow  Computer  Model.  In  no  event  will 
the  progress  payment  rate  be  greater  than  1002  or  less 
than  the  uniform,  standard  progress  payment  rate  that 
would  have  been  applied  to  the  contract  absent  flexible 
progress  payments. 
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INTRODUCTION  CONT'D 


FLEXIBLE 

PAYMENT 

ELIGIBILITY 


WHY  USE  CAS  HI  I 


Contracting  officers  shall  use  a  flexible  progress 
payment  rate  in  lieu  of  uniform,  standard  progress 
payment  rates  for  the  purpose  of  computing  monthly 
progress  payments  if  requested  by  the  contractor,  if 
the  criteria  in  E-530.3  are  met,  and  if  the  contractor 
agrees  to  the  requirements  of  this  section.  Flexible 
progress  payments  shall  be  regarded  as  customary 
progress  payments,  as  defined  in  E-503. 

E-530.2  DOD  Cash  Flow  Computer  Model.  The  flexible 
progress  payment  rate  shall  be  determined  through 
application  of  the  DOD  Cash  Flow  Computer  Model, 
available  to  contracting  officers  on  the  COPPER 
IMPACT  computer  time  sharing  network  under  the 
computer  file  name  "CASHII".  The  model  takes  into 
account  key  cash  flow  factors,  such  as  contract 
cost  profile,  delivery  schedules,  subcontractor 
progress  payments,  liquidation  rates,  and  payment/ 
reimbursement  cycles.  Operating  instructions  and 
cash  flow  data  requirements  are  retrievable  within 
the  model  in  a  conversational  mode.  Contractors 
may  obtain  copies  of  the  DOD  Cash  Flow  Computer 
Model  User's  Guide  (including  the  related  computer 
program)  from  the  Defense  Technical  Information  Center, 
Building  5  Cameron  Station,  Alexandria,  Va  22314. 
Contracting  officers  may  not  grant  contractor  access 
to  Government  leased  COPPER  IMPACT  time  sharing 
computer  network. 

For  negotiated  fixed  price  type  contracts  over  $1 
million,  flexible  progress  payments  may  be  authorized 
if  requested  by  the  contractor.  The  flexible  progress 
payments  may  range  from  90%  to  100%  as  determined  by 
the  cash  flow  model  which  is  the  subject  of  this 
document . 
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INTRODUCTION  CONT'D 
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COST 
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TRANSACTION 

REPORT 


ANALYTICAL 

REPORT 


A  SAMPLE  CAS  HI I  RUN 


Figures  1,  2  and  3  illustrate  a  simple  run  of  the 
program.  Figure  1  shows  that  the  program  always  starts 
by  asking  you  to  answer  six  questions.  These  questions 
are  asked  at  the  terminal  in  order  to  provide  you 
maximum  flexibility.  The  rest  of  the  data  required 
by  CASHII  is  in  a  file  which  the  program  reads.  You  are 
asked  to  supply  the  filename  even  before  the  six 
questions  shown  here.  The  first  four  questions  are 
asked  at  the  terminal  so  that  the  information  contained 
in  the  data  file  can  be  kept  constant  while  different 
answers  are  supplied  here.  This  capability  provides 
some  "what  if"  analysis  through  CASHII. 

The  last  two  questions  are  asking  how  much  detail 
you  wish  to  see  for  output.  A  recap  of  the  cost  report 
data  reformats  and  prints  the  data  found  in  the  input 
file.  Printing  this  data  can  be  very  useful  in 
verifying  that  the  system  is  reading  the  data  you 
think  you  typed  . 

A  transaction  report  is  a  detailed  report  showing  one 
line  for  every  transaction  that  takes  place.  The  system 
inserts  transactions  for  planned  progress  payments. 

This  enables  you  to  analyze  exactly  how  cash  flow  is 
effected  by  different  assumptions. 

Both  of  these  reports  are  discussd  in  detail  in  section 
3  of  thi6  document.  For  now,  however  let's  continue 
with  the  sample  output  shown  in  Figure  2.  It  is  the 
Analytical  Report.  The  Analytical  Report  is  always 
produced,  no  matter  how  you  answer  the  preceeding  two 
questions . 
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***  DEPARTMENT  OF  DEFENSE  CONTRACT  FINANCING  MODEL  «* 
«*  VERSION  DATED  FEBRUARY  It  1983  *♦« 
wiHmwHmmmuHWtwmnntHWWWH 


CAUTION--THIS  CASH  MODEL  VERSION  IS  NOT  COMPATIBLE  KITH 
THE  USER  GUIDE  DATED  AUGUST  28,1981.  PLEASE  CONSULT  THE 
USER  GUIDE  DATED  FEBRUARY  1,1983  FOR  GUIDANCE. 


THE  FOLLOWING  DATA  IS  REQUESTED  OF  THE  USER  AT  THE 
TERMINAL  SO  DIFFERENT  CALCULATIONS  CAN  BE  HADE  USING 
THE  SANE  DATA  FILE 


WHAT  IS  THE  PROCRESS  PATHENT  LAC  TINE  IN  DATS?  (TIME 
FROM  WHEN  STATEMENT  IS  ISSUED  UNTIL  PAYMENT  IS  REC¬ 
EIVED?) 

? 

>5 


WHAT  IS  THE  DELIVERY  PAYMENT  LAG  TINE  IN  DATS’  (TIME 
FROM  WHEN  DELIVERY  IS  HADE  UNTIL  PAYMENT  IS  RECEIVED.) 

>20 


WOULD  TOU  LIKE  TO  SPECIFY  A  CERTAIN  PROGRESS  PAYMENT 
RATE  FOR  THESE  CALCULATIONS’  A  NO  ANSWER  IMPLIES  YOU 
WANT  THE  COMPUTER  TO  CALCULATE  THE  FLEXIBLE  PROGRESS 
RATE  USING  THE  CONTRACTOR  INVESTMENT  RATIO.  (YES  /  NO) 
>NO 


AFTER  HOW  MANY  DAYS  WOULD  YOU  LIKE  THE  ALTERNATE 
LIQUIDATION  RATE  USED  IN  CALCULATIONS’  VALUE  MUST  BE 
GREATER  THAN  OR  EQUAL  TO  345. 

? 

>365 


WOULD  TOU  LIKE  TO  SEE  A  TRANSACTION  REPORT’  (YES  /  NO) 
>NO 


WOULD  TOU  LIKE  TO  SEE  A  RECAP  OF  THE  COST  REPORT  DATA? 
)NO 


(YES  /  NO) 


FIGURE  1 

» 
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PACE  1 


DEPARTMENT  OF  DEFENSE  CONTRACT  FINANCING  NODE!. 
VERSION  DATED  FEBRUARY  1,  1983 
ANALYTICAL  KPORT 


PROJECT  TITLE  CASH  EXAMPLE  WITH  PROJECTED  DATA 


CONTRACT  PRICE  7700.00 
TOTAL  CONTRACTOR  COST  7000.00 
PROFIT  PAID  TO  CONTRACTOR  700.00 
START  UP  COST  OF  CONTRACT  l  it 
CONTRACT  START  DATE  821111 
DATA  FILE  PROFIT  PERCENTAGE  ll.M 
COMPUTED  PROFIT  PERCENTAGE  11.18 


immWHHtHHtHHWHWIHWIWHHWHHWHIWittHiHHX 


««  PROGRESS  PAYMENT  RATE  DATAmt 


PROGRESS  PAYMENT  RATE 
ORDINARY  LIQUIDATION  RATE 
ALTERNATE  LIQUIDATION  RATE 
CONTRACTOR  INVESTMENT  RATIO 


»  98. M  * 

t  * 

i  98.18  * 
*  * 

*  89.09  * 

t  * 

«  5.75  # 

tfmmm 


HMIHMHHHmHHHHHHHHHWHHWHHHHHHHHHHWHHl 


> 


COST  ELEMENT  DATA 

f 

NAME 

UNPAID  COST 

ZPAID 

PAID  COST 

ELGIBILITY 

DAYS  FLOAT 

DATS  FLOAT 

PROGRESS  PAYMENT 

1 

DIRECT  LABOR 

-2 

INCURRED  COST 

2 

OVERHEAD 

15 

INCURRED  COST 

3 

SUBCONT  PROG  PAT 

21 

81.# 

-2 

SUBCONTRACT  PROG  PAY 

4 

MATERIAL 

35 

81.0 

-2 

PAID  COST 

5 

PURCHASED  PARTS 

21 

90.0 

-1 

PAID  COST 

4 

INTERDIVISIONAL 

15 

90.0 

-4 

PAID  COST 

PROGRESS  PAYMENT  LAC  THE  IN  DAYS  5 

DELIVERY  PATIENT  LAC  TIIE  IN  DAYS  2« 

DATE  OF  FINAL  DELIVERY  830525 


PROGRESS  PAYMENT  RATE  COMPUTED  BY  PROGRAM  98. M 

HHHHHHIHHHmWIHHHmtmHHHWHimWHttWWHHil 


FIGURE  2 
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DEPARTMENT  OF  DEFENSE  CONTRACT  FINANCING  MODEL 
VERSION  DATED  FEBRUARY  I.  1983 
ANALYTICAL  REPORT 


PROJECT  TITLE  CASH  EXAMPLE  KITH  PROJECTED  DATA 


CONTRACT  PRICE  Tlit.il 
TOTAL  CONTRACTOR  COST  7IBB.BB 
PROFIT  PAID  TO  CONTRACTOR  7M.lt 
START  UP  COST  OF  CONTRACT  l.li 
CONTRACT  START  DATE  821111 
DATA  FILE  PROFIT  PERCENTAGE  1MB 
COMPUTED  PROFIT  PERCENTAGE  1  MB 


»ti  PROGRESS  PAYMENT  RATE  DATAm# 


PROCESS  PAYMENT  RATE 

> 

93.  BB  » 

t 

* 

ORDINARY  LIQUIDATION  RATE 

» 

98. BB  * 

< 

• 

ALTERNATE  LIQUIDATION  RATE 

f 

89. B?  * 

» 

* 

CONTRACTOR  INVESTMENT  RATIO 

i 

5. 42» 

WHHHit 

iHOHiWHHHWHHWIlHHHHIHHttHHHHHMHWHHHHHHf 

HHIHHHHiftlfHHiHHtHHHHHiHtHHHmiHHWHHHHHHW 


COST  ELEMENT  DATA 

I  NAME  UNPAID  COST  ZPAID  PAID  COST  ELGIBILITT 

OATS  FLOAT  DATS  FLOAT  PROGRESS  PAYMENT 


ftHtHmmttmtHMtHmHfmmttHfmmtttitttMHttmtHmm 


1  DIRECT  LABOR 

-2 

INCURRED  COST 

2  OVERHEAD 

IS 

INCURRED  COST 

3  SUBCONT  PROG  PAT 

2B 

8 1.1 

-2 

SUBCONTRACT  PROG  PAT 

4  MATERIAL 

28 

81.1 

-2  ' 

■  PAID  COST 

5  PURCHASED  PARTS 

21 

9 B.B 

-I 

PAID  COST 

4  INTERDIVISIONAL 

15 

9B.B 

-4 

PAID  COST 

HltHHHHHmHtHIIHmHIlHmHHilHHHfHtmiWmitfHHtll 

PROGRESS  PAYMENT  LAC  TIME  IN  DATS  6 

DELIVERY  PAYMENT  LAC  TIME  IN  DATS  21 

DATE  OF  FINAL  DELIVERY  830525 


PROGRESS  PAYMENT  RATE  COMPUTED  BY  PROGRAM  98. BB 

KllilitHOlHHHHIHHIHIHIIIilHIHimiHdiHilfiiHIIHtHHHH 


FIGURE  2 
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INTRODUCTION  CONT'D 


The  first  block  of  information  in  Figure  2  is 
a  combination  of  program  calculations  and  facts 
contained  in  the  input  file.  Total  contractor 
cost  is  the  sum  of  all  cost  elements  contained 
in  the  file.  Profit  paid  is  total  cost  subtracted 
from  contract  price.  Contract  price  is  derived 
by  adding  all  the  deliverables.  Profit  paid  and 
contractor  cost  are  then  used  to  calculate  profit 
percentage.  The  calculated  profit  percentage  is 
then  compared  to  the  percentage  specified  in  the 
datafile.  If  the  two  percentages  are  not  the  same, 
an  error  message  is  printed  and  the  program  stops. 
Start  up  cost  and  contract  start  time  are  simply 
read  in  from  the  input  file 

Now  the  program  calculates  the  progress  payment 
rate,  the  alternate  liquidation  rate  and  the 
contractor  investment  ratio.  Ordinary  liquidation 
rate  is  always  the  same  as  the  progress  payment 
rate.  These  four  numbers  are  the  real  meat  of  this 
report.  The  "what  if"  analysis  is  performed  to  see 
the  effect  on  them. 

The  rest  of  the  numbers  shown  in  Figure  2  are  simply 
being  reported  from  the  input  file.  You  should  verify 
that  these  numbers  are  what  you  intended.  If  not, 
the  input  file  should  be  changed.  Also  included 
here  are  the  values  that  you  input  to  be  used  as  the 
progress  payment  and  delivery  payment  time  lags. 

To  complete  our  initial  look  at  the  CASHII  program 
let's  turn  to  Figure  3.  It  shows  the  input  file 
that  was  used  to  generate  Figure  2. 


-7- 


CASH  EIA E  H!1  PROJECTED  DATA 
DIRECT  LABOR. INCUR. -2,0,0 
OVERHEAD. INCUR. 15. 0,0 
SUFCOKT  PRCC  PAr,SL«CT,20,.3,-2 
MATERIAL. PAIDC. 35.. S.-Z 
PURCHASED  PARTS,PAIDC,20,.9,-l 
IMTERDIVISI0MALiPAIDC.15i.9i-4 
3.820131.0.0.0. 1M.0.0 
3f82022S.0.0.0« 100.0.0 
3.82133#. 15#. 5010.1.0.1 
4.82*425.25# 

3.82*43#. 150.5#. 10#. 100.100. 1## 

3.820530. 150.50. 100. 100. 100. 100 
3.82*630. 150.50. 100. 100. 100. 10# 
3.820730.150.50.100.1*0.100.100 

3.820330.150.50.100.100.100.100 
4,820925.50# 

3.820930.150.50. -100-300.100.100 

3.821030.150.50. -100,300,100,100 

3. 821130. 150. 50.  -100, 300.100.10# 
4.821224.100P 

3.821231.150.50. -100,300.100,0 
4,830125,1 00# 

3. 830130.150. 50. -100, 30#, 0,0 
4,830219,100# 
3.830228,150,50,0.200,0,0 
3,830330,150,50,0,0,0,100 
3,830430,150,50,0.0,0,0 
4,830525,3950 


SECTION  1 


SECTION  2 


SECTION  3 


FIGURE  3 
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1.  INTRODUCTION  CONT'D 


INPUT 
DATA  FILE 


The  input  data  file  is  actually  made  up  of  three 
sections.  A  detailed  discussion  of  the  information 
contained  in  each  is  found  in  the  next  section  of 
this  document.  For  now,  the  first  two  lines  contain 
information  about  the  rest  of  the  file  and  the  title 
of  the  project.  In  this  example,  the  next  six  lines 
contain  information  about  the  individual  cost 
elements  that  will  make  up  the  contract  expenses. 
(You  may  have  up  to  10  lines  of  cost  elements  but 
you  have  to  specify  how  many  you  have.) 

The  rest  of  the  file  contains  the  transactions  that 
take  place  over  the  life  of  the  contract.  A  trans¬ 
action  type  of  3  means  a  monthly  cost  statement 
(either  actual  or  estimated),  the  number  after  the 
3  is  the  date  and  the  following  six  numbers  are  the 
actual  (or  estimated)  costs  for  each  of  the  cost 
elements  specified  above.  A  transaction  type  4  is 
a  planned  delivery.  The  number  after  the  4  is  the 
date  and  the  next  number  is  the  value  of  the 
deliverable  . 


Now  you  know  nearly  everything  necessary  to  use  the 
CASHI1  program.  If  your  contract  used  the  six  cost 
elements  illustrated  in  this  example,  the  only  thing 
we  haven't  discussed  is  the  rest  of  the  numbers  on 
the  cost  element  line.  Each  of  them  is  discussed  in 
the  next  section. 
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INTRODUCTION  CONT'D 


HOW  TO  USE  THE  REST  OF  THIS  BOOK 


If  you  have  read  this  far  you  have  a  good 
fundamental  understanding  of  how  CASHII  works. 

The  next  step  depends  on  how  you  will  be  using 
it.  If  you  plan  to  make  extensive  use  of  the 
system  you  should  study  sections  2,  3  and  the 
appropriate  appendix.  If  you  feel  you  have  already 
seen  enough,  you  may  be  able  to  squeak  by  with 
section  2  and  the  appropriate  appendix.  Section  2 
is  needed  by  everyone  since  it  describes  in 
detail  what  the  items  in  the  data  file  are.  You 
may  find  that  you  can  skip  much  of  it  simply  by 
referring  to  section  4,  the  short  guide  to  syntax 
for  specific  questions  or  rules  and  limitations. 

Section  4  will  probably  prove  useful  to  browse 
through.  However,  it  is  not  intended  to  be  read 
from  start  to  finish.  Its  function  is  that  of  a 
dictionary  for  the  CASHII  system.  The  last  part  of  it 
addresses  error  messages.  If  when  you  execute  CASHII, 
unexpected  conditions  occur  you  may  be  able  to 
obtain  help  by  looking  there. 

Finally,  the  appendix  which  is  most  relevant  will  depend 
on  exactly  how  you  are  using  CASHII.  The  program  itself 
is  maintained  on  two  commercial  computer  service  vendors. 
One  appendix  demonstrates  how  CASHII  works  on  each.  CASHII 
is  also  available  for  your  own  in-house  computer.  (CASHII 
is  written  in  FORTRAN)  If  that's  where  you  are  using  it 
most  of  this  book  is  useful.  However,  the  appendices 
of  sample  runs  may  not  be  of  any  value. 
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CAS  HI  I  BASICS 


GETTING  STARTED 


First  you  must  decide  where  you  will  be  using 
CASHII.  One  important  consideration  is  who  will  be 
using  it  (actually  entering  data  and  executing  the 
program).  If  it  is  s  j’one  with  no  previous  computer 
experience  you  should  look  for  a  "u6er  friendly" 
system.  That  means  a  computer  system  which  is  as 
simple  as  possible  to  operate  and  spends  as  little 
time  as  possible  with  computerese.  You  should  also 
plan  on  at  least  some  introductory  training  in  the 
particular  computer  system  and  how  it  works.  (This 
book  should  be  all  you  need  on  the  application,  if 
it's  not,  there  is  an  on-line  teaching  tool  which 
should  help.) 

If  the  typical  users  will  be  computer  professionals 
none  of  the  above  is  of  particular  concern.  You  will 
probably  want  to  get  your  own  copy  of  the  program  and 
run  it  on  your  own  in-house  computer.  Some  regular 
system  should  be  set  up  to  insure  that  you  are  kept 
up-to-date  with  the  latest  version.  If  you  elect  to 
use  your  own  in-house  system,  skip  to  Creating  the  Data 
File.  The  rest  of  this  discussion  is  for  those  who 
will  be  running  the  program  on  an  outside  vendor  and  who 
have  no  particular  computer  experience. 

The  next  step  is  access  to  one  of  the  commerlcial  vendors. 
DOD  does  not  provide  this  access.  You  will  have  to  make 
arrangements  directly  with  the  vendor  to  become  a 
customer.  It's  important  that  you  inform  the  vendor 
that  you  wish  to  use  the  CASHII  system.  They  may  have 
some  special  arrangements  that  must  be  made. 

GOVERNMENT  Note  for  government  users:  Your  access  to  CASHII  is 

USERS  NOTE  through  Copper  Impact  on  Boeing  Computer  Services  only. 
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CAS  HI  I  BASICS  CONT'D 


SELECTING 

A 

TERMINAL 


GETTING  STARTED 


After  picking  your  vendor,  you  will  want  to  discuss 
with  them  the  type  of  terminal  device  necessary  to 
access  their  computer.  The  key  consideration  is 
how  much  time  you  will  spend  using  CASH1I.  If  you 
expect  to  spend  a  substantial  amount  of  time  using 
CASHII  then  a  higher  speed  terminal  is  a  good  investment. 
For  your  purposes  terminals  operate  at  30  or  120 
characters  per  second  (CPS).  A  full  set  of  output 
for  the  sample  problem  presented  in  section  2  takes 
about  10  minutes  to  print  at  30  CPS.  If  you  anticipate 
doing  one  similar  run  per  week  then  30  CPS  should  be 
adequate.  For  one  a  day  or  for  contracts  that  have  much 
more  data  than  that  illustrated  120  CPS  is  preferable 
and  possibly  even  more  economical.  Your  vendor  can 
help  you  determine  more  accurately  what  volume  will 
make  the  higher  speed  devices  the  most  economical. 

Of  course,  if  you  already  have  a  terminal  chances  are 
good  that  it  will  be  compatible  with  the  computer  you 
select.  If  you  elect  to  attend  an  introductory  training 
session  on  the  vendors  computer  service,  you  should  ask 
that  specific  discussion  be  devoted  to  your  terminal 
and  how  it  works  . 

That  should  be  all  it  takes  to  get  started.  Now  you 
are  ready  to  enter  data.  That's  the  next  topic. 
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2.  CAS  HI I  BASICS  CONT'D 


CREATING  A  DATA  FILE 


We  have  already  had  a  brief  discussion  of  the 
data  file.  You  know  what  it  looks  like  and  that  it  is 
divided  into  three  sections.  Now  we  will  discuss  each 
of  the  sections  in  sufficient  detail  to  enable  you  to 
write  down  your  data  in  the  proper  format.  Note  that 
when  you  are  preparing  to  run  the  CASHII  program,  you 
must  have  entered  (and  saved)  the  appropriate  data 
into  the  data  file.  That's  the  first  step.  Then  CASHII 
reads  the  information  from  the  file.  The  actual  steps 
of  entering  the  data  file  are  shown  in  the  appropriate 
appendix.  You  will  see  as  we  go  along  that  it  makes  sense 
to  write  the  data  on  paper  in  the  proper  format  first. 

The  first  line  in  our  example  is: 

820101  ,0,6,22  , .1 

A  A  A  A  A 

| Planned  profit  percent  as  a  decimal. 

This  example  plans  on  10X  profit. 

The  number  of  transaction  lines  in  this 
data  file  (more  on  this  in  the  discussion 
of  section  3)  . 

The  number  of  cost  elements  asoclated  with 
this  contract  Maximum  of  10  allowed. 

Start  up  costs. 

Start  up  date  (year,  month,  day  format) 


The  second  line  is: 

CASHII  EXAMPLE  WITH  PROJECTED  DATA 

This  is  simply  the  title  that  we  wish  to  print  at 
the  top  of  each  of  the  reports.  You  can  have 
any  title  you  wish  up  to  50  characters  long. 
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COST 

ELEMENT 

TYPES 


CAS  HI I  BASICS  CONT'D 


CREATING  A  DATA  FILE 


That  completes  the  first  section  of  the  file.  The 
second  section  is  where  you  specify  each  of  the  cost 
elements  which  will  be  involved  with  the  contract. 
Each  cost  element  requires  that  you  specify  the  type 
of  cost  (as  specified  in  the  progress  payment  clause 
of  the  contract)  followed  by  three  items  of  numeric 
data  . 

The  type  of  cost  must  be  INCUR,  PAIDC  or  SUBCT. 

A  typical  cost  element  line  (as  shown  in  our  earlier 
example )  is: 

DIRECT  LABOR, INCUR, -2, 0,0 


Dummy  elements  for  INCUR 
1  must  be  0 . 

Days  float 
Type  of  cost 

Title  (maximum  of  20  characters) 

INCUR  means  that  expense  associated  with  this  cost 
element  are  eligible  for  progress  payment  as  they 
are  incurred  . 

PAIDC  means  that  expenses  are  eligible  for  progress 
payments  only  as  they  are  actually  paid. 

SUBCT  means  that  this  cost  element  represents  progress 
payments  paid  to  a  subcontractor  and  are  eligible 
for  100%  reimbursement  to  the  prime  contractor. 

Important  note  for  large  business  firms:  Some 
contract  costs  such  as  material  or  purchased 
parts  costs  incurred  are  not  eligible  for  progress 
payments  until  actually  paid.  Therefore,  these 
elements  must  be  coded  as  PAIDC. 
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CAS  HI I  BASICS  CONT'D 


CREATING  A  DATA  FILE 


FLOAT  is  the  next  item  on  the  line.  Slightly 
different  considerations  are  necessary  depending 
on  whether  the  cost  element  is  INCUR,  PAIDC 
or  SUBCT.  Following  the  example,  let's  look 
at  INCUR  first. 

FLOAT  is  the  number  of  days  between  the  cost 
statement  date  and  the  time  the  cost  is  paid  on 
a  cash  basis.  Bank  lag  times  must  be  Included  in 
float.  Both  positive  and  negative  numbers  may  be 
entered  . 

Float  for  labor  should  be  based  on  a  weighted 
average  over  the  cost  accounting  period.  For 
example,  if  the  cost  accounting  period  is  4  weeks 
and  the  contractor  pays  every  2  weeks,  and  it  takes 
an  average  of  8  days  from  the  time  the  payroll  is 
closed  until  the  payroll  checks  clear  the  contractor's 
bank  account,  the  average  float  for  the  4  week  period 
would  be  1  day,  computed  as  follows: 


FLOAT 

DAY  PAYROLL  CLOSES 
PLUS:  PAYMENT  LAG 

PAYROLL 

FIRST 

14 

8 

PERIOD 

SECOND 

28 

8 

EXAMPLE 

PAYROLL  PAYMENT  DATE 
LESS:  DAY  OF  COST 

22 

36 

STATEMENT 

28 

28 

FLOAT 

-6 

+  8 

TIMES:  PAYROLL  WEIGHT* 

.5 

.5 

WEIGHTED  FLOAT 

-3 

+  4 

AVERAGE  FLOAT  (-3+4)  =  : 

l  DAY 

♦Expected  dollar  amount  is  the  same  for  each  payroll  period  so 
they  are  equally  weighted.  The  average  float  is  then  the  sum 
of  the  two  individual  float  amounts. 
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2.  CAS  HI I  BASICS  CONT'D 


CREATING  A  DATA  FILE 


The  next  cost  element  is  also  type  INCUR.  It  is: 

OVER HE AD, INCUR, 15 ,0 ,0 

This  follows  exactly  the  same  format  as  we  just  dis¬ 
cussed.  However,  calculating  float  for  overhead 
items  is  intricate  enough  that  we  should  step 
through  a  specific  example. 

Overhead  will  include  things  like  indirect  labor, 
vacation,  depreciation,  materials  and  supplies. 

These  things  will  typically  have  very  different 

float  times  so  it  is  necessary  to  calculate  a  weighted 

average.  The  example  below  illustrates  the  calculation. 


PERCENTAGE 

FLOAT 

WEIGHTED 

ELEMENT  OF  EXPENSE 

AMOUNT 

OF  TOTAL 

DAYS 

FLOAT  DAYS 

FLOAT 

Indirect  labor 

$  1,700 

17.07. 

-2 

-.34 

EXAMPLE 

Payroll  taxes 

1 ,500 

15.0 

-6 

-.90 

Ho  1  i  d  a  y  s 

600 

6.0 

29 

1.74 

Sick  Pay 

400 

4.0 

30 

1 .20 

Accrued  vacation 

1  ,000 

10.0 

60 

6.00 

Retirement 

1 ,500 

15.0 

42 

6 . 30 

Insurance 

500 

5.0 

-15 

-.75 

Depreciation-Plt&Equ 

ip  1,200 

12.0 

0 

.00 

Travel 

300 

3.0 

9 

.27 

Materials  A  Supplies 

600 

6.0 

20 

1  .  20 

Miscellaneous 

700 

7.0 

4 

.28 

TOTAL 

$10,000 

100.0% 

15.00 
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CAS  HI  I  BASIC  CONT'D 


CREATING  A  DATA  FILE 


Note  the  significant  number  of  float  days  associated 
with  vacation.  Vacation  expense  Is  accrued  long  before 
it  is  actually  paid.  Since  we  are  calculating  a 
weighted  average  the  overall  effect  is  consistent 
with  its  importance  to  total  expenses.  Also  notice 
that  depreciation  float  is  shown  as  zero.  Facilities 
capital  cost  of  money  should  also  be  treated  as 
having  no  float. 

Weighted  float  days  is  percent  of  total  times  float 

days.  The  weighted  float  days  are  then  added  and 

the  total  used  as  the  float  time  for  this  cost  element. 

Since  only  ten  cost  elements  are  allowed,  it  makes 
sense  to  combine  similar  cost  elements  in  this 
manner  whenever  necessary. 

The  next  line  in  our  data  file  illustrates  a  SUBCT 
expense.  The  format  for  SUBCT  and  PAIDC  cost  elements 
is  the  same  so  we  will  discuss  them  together. 


A 
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®AIDC  and  SUBCT  COST  ELEMENTS 


Let's  start  by  showing  the  example  we  are 
working  with: 

SUBCONT  PROG  PAY,  SUBCT,  20,  .8,-2 

A  A  A  A  A 

^Float  for  paid  costs. 

Percent  of  cost  paid  in 
current  cost  accountng  period. 

Float  for  unpaid  costs. 

Type  of  cost  element. 

Cost  element  . 

We  can  deal  with  the  two  float  numbers  with  an  example 
(which  will  be  equally  applicable  to  PAIDC  cost  elements) 
so  let's  discuss  the  percent  of  cost  paid  first.  This 
number  is  the  portion  of  costs  incurred  during  the 
accounting  period  for  which  the  contractor  has  already 
issued  checks.  This  cost  is  eligible  for  progress 
payments.  Note,  the  number  must  be  expressed  as  a 
decimal.  In  this  case,  the  contractor  has  paid  80% 
of  the  expenses  during  the  accounting  period. 

The  first  float  item  is  specified  as  float  for  unpaid 
costs.  This  is  the  number  of  days  after  the  cost 
statement  is  made  that  the  expense  is  paid.  The 
second  float  item  is  float  for  paid  costs.  This  is 
the  numer  of  days  before  the  cost  statement  is  made 
that  this  category  of  expenses  is  paid.  Calculations 
for  both  these  numbers  can  be  Illustrated  in  one  example. 
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2.  CAS  HI I  BASICS  CONT'D 


CREATING  A  DATA  FILE 


The  contractor  Bade  a  review  of  Invoices  received 
during  April  to  develop  these  data.  Material  coats 
are  recorded  on  an  accrual  basis.  To  keep  the 
example  simple,  assume  that  invoices  are  paid  20  days 
after  receipt.  Invoices  selected  for  this  computation 
should  cover  a  period  of  time  sufficient  to  represent 
the  contractor's  normal  dollar  volume  and  payment  cycle 
for  such  purchases.  Cost  elements  involving  an  insigni¬ 
ficant  amount  in  relation  to  the  contractor's  normal 
volume  need  not  be  analyzed. 


SAMPLE  MONTH  -  APRIL 


TOTAL  DAY  DOLLARS 


DATE 

DATE 

DAYS 

DAYS  FROM 

(DAYS  FROM  START  OF  APR) 

INVOICE 

INVOICE 

CHECK 

BANK 

START  OF 

TIMES  INVOICE  AMOUNT) 

RECEIVED 

AMOUNT 

WRITTEN 

FLOAT 

APRIL 

APRIL 

MAY 

FLOAT 

DAY 

(1) 

(2) 

(3) 

(4) 

(5-3+4) 

(6-2*5) 

DOLLARS 

APR  1 

$  100 

APR  21 

3 

24 

$  2,400^ 

2 

150 

22 

3 

25 

3,750 

3 

200 

23 

3 

26 

5,200 

L  paid 

7 

175 

27 

3 

30 

5,250  i 

f  costs 

8 

125 

28 

3 

31 

3,875 

9 

50 

29 

3 

32 

1 ,600 J 

21 

25 

MAY  11 

3 

44 

$1  ,  100\ 

23 

50 

13 

3 

46 

2 , 300  l  un- 

29 

100 

19 

3 

52 

5,200  / paid 

30 

25 

20 

3 

53 

1  ,  32b J  costs 

TOTAL 

$1 ,000 

(APR  TOTAL  $800. 

MAY  TOTAL  $200.) 

TOTAL 

DAY  DOLLARS 

$22,075 

$9  ,925 

Divided 

by:  Total  amount 

paid  each  month 

800 

200 

Weighted  average 

payment 

days 

28 

50 

Less :  Number  of 

days  in 

April 

-=JLQ 

-ll£> 

Float  Days 

-2 

-20 

LIMITATION 

In  view 

of  the  requirements  of  the 

Prompt  Payment  Act,  to  encourage 

ON  FLOAT 

prompt 

payment  of 

subcontractors,  the  float  on 

the  unpaid  portion 

FOR  PAIDC 

of  PAIDC  or  SUBCT 

categories  of  cost  shall  not 

exceed  28  days. 

&  SUBCT  notwithstanding  any  data  the  contractor  may  have  which  would  indicate 

a  historically  longer  float  period. 
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2.  CAS  HI I  BASICS  CONT'D 


CREATING  A  DATA  FILE 


Now  to  find  the  weighted  average  float  for  paid 
expenses  (those  paid  for  in  April)  simply  divide 
the  total  day  dollars  by  the  April  total  invoices 
paid  amount.  So  — 

22075/ 

''eOO  -  27.5  -  28  days 

Now  subtract  the  number  of  days  in  April  28-30  «  -2 
and  arrive  at  -2  as  the  float  for  paid  expenses.  In 
other  words  you  paid  expenses  on  average  2  days 
before  the  cost  statement  was  issued. 

The  calculation  for  unpaid  expenses  works  the 
same  way: 

9925  / 

y200  -  49.6  •  50  days 

50-30  days  in  April  «  20  days  float. 

These  expenses  are  not  paid  until  20  days  after  the 
cost  statement  is  issued. 

It  is  important  that  the  items  used  in  thi6  analysis 
be  similar.  For  instance,  if  subcontractor  progress 
payments  are  made  much  quicker  than  other  payments, 
a  separate  analysis  should  be  performed  for  each. 

You  can  also  see  that  the  April  total  of  $800  represents 
802  of  the  total  invoices  received.  That's  where  we 
got  the  percent  of  cost  paid  number. 

PAIDC  cost  elements  can  be  viewed  in  exactly  the  same 
way,  so  a  separate  example  will  not  be  given. 

The  rest  of  the  lines  in  this  part  of  the  data  file 
follow  the  formats  just  discussed.  Now  let's  move 
on  to  the  third  section. 
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CAS  HI  I  BASICS  CONT'D 


CREATING  THE  DATA  FILE 


TRANSACTIONS  -  You  can  see  from  looking  at  the  example 
that  several  different  formats  are  followed  in  the  third 
section  of  the  data  file.  The  format  varies  according  to 
the  type  of  transaction.  The  transactions  are  identified 
by  the  numbers  1,  2,  3,  4,  and  5.  Here  is  what  each  means 

1)  Actual  progress  payment  received.  These  will  be 
entered  into  the  input  data  file  as  appropriate 
to  reflect  receipt  of  payment.  Contains  three 
items,  date,  amount,  progress  payment  rate. 

2)  Planned  progress  payment.  These  transactions 
show  up  in  the  transaction  report.  They  are 
calculated  by  and  used  only  by  the  CASHII  program. 

3)  Monthly  cost  statement  (actual  or  estmated). 

Usually  make  up  the  bulk  of  the  transactions 
entered  in  the  data  file.  Contains  date  plus 
one  entry  for  each  cost  element,  zero  if 

no  value. 

4)  Planned  delivery.  Contains  date  and  value. 

5)  Actual  delivery.  Contains  date,  value, 
liquidation  rate. 

All  transactions  must  be  entered  in  order  by  date. 

The  total  number  of  transaction  lines  must  be  equal 
to  the  number  of  transactions  specified  in  the  first 
line  of  the  data  file.  You  use  transaction  types 
1,  3,  4  and  5.  The  program  uses  transaction  type  2. 

The  total  number  of  transactions  allowed  in  any  one 
run  of  the  program  is  325.  Since  the  type  2  transactions 
used  by  the  program  count  toward  this  limit  your  limit  is 
somewhat  less.  You  can  see  if  you  are  within  the  limit 
by  trying  the  calculation: 

2*(#of  type  3's)  +  (#of  1  '  s  +  It  of  4's  +  #of  5's) 

If  the  answer  you  get  is  less  than  325  you  should  be  OK. 

Now  let's  look  at  each  type  of  transaction. 
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2.  CAS  HI  I  BASICS  CONT'D 


COMMAS 

REQUIRED 


CREATING  THE  DATA  FILE 


Each  line  in  the  third  section  of  the  data  file 
must  specify  which  type  of  transaction  it  is.  In 
our  example,  the  next  line  is: 

3,820133,0,0,0,100,0,0 


I  cost  element  data 
data  of  transaction 
1  transaction  type 

The  transaction  illustrated  is  a  type  3  or  Monthly  cost 
statement  transaction.  This  portion  of  the  file  must 
be  in  order  by  the  transaction  dates.  So,  the  next 
line,  no  matter  what  type  of  transaction  it  represents 
must  have  a  date  greater  than  January  30,  1982.  Trans¬ 

actions  of  type  3  may  be  either  actual  or  estimated 
expenses . 

The  six  data  items  following  the  date  correspond  to  the 
six  cost  elements  specified  in  section  2  of  the  file. 

Since  we  specified  a  6  on  the  first  line  of  the  file, 
each  type  3  line  must  have  six  cost  items  or  the  program 
will  not  work.  Can  you  tell  which  cost  element  incurred 
the  $100  expense  shown  above? 

Right,  it's  the  fourth  one  or  in  our  example,  Material 
expense.  We  are  saying  here  that  for  the  transaction 
dated  820130  only  material  expenses  were  planned  or 
actually  incurred.  If  labor  expense  had  been  incurred,  it 
would  replace  the  first  zero  after  the  date.  If 
interdivisional  expenses  were  incurred,  it  would  replace 
the  last  zero  on  the  line  and  so  forth.  Note:  that  commas 
are  used  to  separate  the  individual  items  of  da’a  on  the  line. 
Therefore,  the  system  will  be  confused  if  you  insert  commas 
within  the  numbers.  Remember,  as  shown  in  our  example  the 
number  one  thousand  should  be  entered  as  1000  NOT  as  1  ,000  . 


CASHII  BASICS  CONT'D 


CREATING  THE  DATA  FILE 


Our  example  continues  with  two  more  type  3 
transactions.  You  should  agree  that  the  second 
of  them  shows  a  date  of  March  30,  1982  and 

specifies  $150  direct  labor  expense  and  $50 
overhead  expense.  If  you  don't  agree,  study  the 
preceeding  page  of  explanation  on  the  layout  of 
this  line. 

The  next  line  is  a  transaction  type  4  or  planned 
delivery  transaction.  In  our  example  it  looks 
like  this: 

4,820425,250 

A  A  A 

(dollar  value  of  planned  delivery 
|  I  date  of  planned  delivery 

'  transaction  type 

Transaction  type  4's  require  only  two  items  on  the  line 
after  the  transaction  type. 

So  far  we  have  discussed  transaction  types  2  (used  by 
the  program  only)  3  (Monthly  Cost  Statements)  and 
4  (Planned  Delivery).  That  leaves  1  and  5.  Both  of 
them  represent  Actuals  --alls  an  actual  progress 
payment,  and  a  5  is  an  actual  delivery  payment. 

At  the  beginning  of  a  contract,  your  file  may  well  look 
like  the  example  we  have  used  so  far.  That  is,  agreemen 
was  reached  as  part  of  the  original  negotiations  to 
request  flexible  progress  payments.  Sometimes,  however, 
a  contract  is  already  underway  before  the  decision  is 
made  to  request  flexible  payments.  In  this  situation 
the  type  1  transaction  is  used  to  reflect  any  actual 
progress  payments  received. 

Let's  modify  our  sample  data  file  to  reflect  some  actual 
payments  received. 
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more  transaction  data 


820101 ,0 ,6 ,25  ,  .  1 

cash  example  with  actual  and  projected  data  « -  new  title  Just  for 

direct  labo r , inc ur 2 , 0 , 0  illustration 

ov e r head , incur  ,  1 5 , 0 , 0  purposes 

subcont  prog  pay  ,  s ubct^J 0  ,  . 9  2 

material  ,paldc  ,28  ,  .8  ,-2 

purchased  par t s  ,  pa  id c  ,  2 0  ,  .  9  ,- 1 

interdivisional ,paidc ,15, .9,-4 

3,820130,0 ,0,0,100,0,0 

1  ,820204  ,0  ,  .9  -e - 

3,820228,0,0,0 ,100  ,0,0 

1  ,  8  20  304  ,  9  0  ,  .  9  ■*: -  actual  progress  payments  received 

3,820330,150,50,0,0,0,0 

1  ,820404 ,270  ,  .9  - 

4,820425,250 

3.820430.150.50.100.100.100.100 

3.820530.150.50. 100. 100. 100. 100 

3.820630.150.50.100.100.100.100 

3. 8 20 730. 150. 50. 100. 100. 100. 100 

3.820830.150.50.100.100.100.100 
4,820925,500 

3.820930.150.50, -100,300,100,100 

3.821030.150.50, -100,300,100,100 

3.821130.150.50, -100,300,100,100 

4.821224.1000  r 

3.830130.150.50, -100,300,0,0 

4.830219 .1000 
3,830228,150,50,0,200,0,0 
3,830330,150,50,0,0,0,100 
3,830430,150,50,0,0,0,0 
4,830525, 3950 
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2.  CAS  HI  I  BASICS  CONT'D 


1 


CREATING  THE  DATA  FILE 


The  changes  between  this  example  and  the  ones  we 
have  worked  with  so  far  are  flagged.  You  will 
see  that  we  added  three  transactions  so  the  item 
in  line  one  that  tells  the  program  how  many  transactions 
to  expect  was  also  changed  to  25  from  22.  The  three 
new  transactions  are  type  1  transactions.  The  type 
1  transaction  (or  actual  progress  payment)  format  is: 

1 ,820204 ,0 , .9 

A  A  * 

I  Progress  payment  rate  (90%  here) 

Progress  payment  actually  received  (see  below 
for  why  this  one  is  zero) 

Date  payment  received 
Transaction  type 


Type  1  transactions  show  receipt  of  actual  progress  payments. 

In  this  case,  since  the  payment  rate  is  90%,  you  can  tell 
the  example  is  for  a  large  business  concern.  These  actual 
progress  payments  are  always  at  the  uniform  or  standard 
progress  payment  rate.  And  they  occurred  before  flexible 
payment  rate  was  requested. 


This  payment  was  0  simply  because  the  payment  value  would 
have  been  so  small  it  was  not  requested  by  the  contractor. 
Since  the  contract  illustrated  was  already  in  progress  and 
there  must  be  a  one  to  one  match  between  cost  statements 
and  actual  (or  planned)  progress  payments,  this  transaction 
was  inser  ted . 
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2.  CASHII  BASICS  COST'D 


CREATING  THE  DATA  FILE 


The  final  transaction  type  is  type  5,  actual  delivery 
payment  received.  Here  Is  Just  a  piece  of  our  latest 
example  file  to  show  a  type  5  transaction: 

820101,0,6,25,.! 

cash  example  with  actual  and  projected  data 

direct  labor, incur, -2, 0,0 

overhead  .incur, 15, 0,0 

subcont  prog  pay,subct,30,.9,-3 

material  ,paidc  ,  J  8  ,  .  b  ,  -  2 

purchased  parts, paldc, 20, .9,-1 

in  Cerdivisional,paidc,15,.9,-4 

3,820130,0,0-0,100.0,0 

1  ,820204 ,0, 

3,820228,0,0,0,100,0,0 
1,8203  14,  90,  .9 
3,820330, 1 50,50,0,0,0,0 
1,8204 0  4, 270, .9 

5,8  2n425,25.),.9  « -  actual  -livery  payment  receive 

3,8:0,30.150,50,100,100,100,100 
3,820530, 15 0,5 0,100, 100, 100, 100 

Comparing  to  the  earlier  example  you  will  see  that  the 
transaction  5  replaced  a  type  4  transaction.  The 
delivery  has  actually  taken  place  and  payment  was  received. 
Since  the  5  replaced  a  4,  the  number  of  transactions  In 
the  file  remains  the  same  and  no  change  Is  required  in 
the  first  line.  The  format  for  a  type  5  transaction, 
actual  delivery  payment  received  is: 

5,820425,250, .9 

A  A  A  A 

I  Liquidation  rate  (9011  here) 

Value  of  delivery 
Date  delivery  made 
Transaction  type 
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2.  CAS  HI  I  BASICS  CONT'D 


LIQUI¬ 

DATION 

RATES 


CREATING  THE  DATA  FILE 


The  liquidation  rate  is  part  of  a  delivery 
transaction.  There  are  two  liquidation  rates, 
ordinary  and  alternate.  For  further  discussion 
see  DAR  Appendix  E  Part  5. 

We  didn't  discuss  a  type  2  transaction's  format  in  the 
data  file.  That's  because  type  2  or  planned  progress 
payment  transactions  are  used  only  by  the  program.  You 
are  not  allowed  to  have  any  of  them  in  your  data  file. 

If  you  specify  when  you  run  CASHII  that  you  want  to  see 
a  transaction  report,  CASHII  will  print  type  2  transactions 
in  the  appropriate  spots.  The  transaction  report  is  your 
best  tool  for  seeing  the  planned  cash  flow  and  timing  of 
the  contract.  It  is  discussed  in  section  3,  CASHII  output. 

Now  that  we  have  completed  our  input  file,  let's  talk 
about  modifying  it. 
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CAS  HI I  BASICS  CONT'D 


CHANCING/CORRECTING  YOUR  DATAFILE 


Simple,  Type  it  over. 

Actually,  you  will  probably  want  to  change  a 
specific  item  on  one  or  a  few  lines  rather  than  the 
whole  file.  In  that  case,  it  probably  is  simplest 
to  just  type  the  lines  in  question  over  again. 

One  of  the  strengths  of  computers  is  the  ability  to 
let  the  machine  do  the  work  for  you.  There  is 
undoubtedly  a  way  to  instruct  whichever  computer  you 
are  using  to  change  some  specific  data  without  retyping 
the  entire  line.  There  are  some  examples  of  doing  this 
in  the  appendix  of  sample  runs.  If  you  don't  happen 
to  be  using  one  of  those  vendors,  try  looking  in  a 
reference  manual  on  System  Commands  or  Editing  Commands 
or  try  typing  the  line  over. 

Now  you  are  ready  to  execute  CASHII. 
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CAS  HI  I  BASICS  CONT'D 


EXECUTING  CAS  HI I 


Once  again,  the  precise  mechanism  for  executing 
CASHII  depends  on  the  computer  you  are  using.  Some 
specific  examples  are  given  in  the  appendix.  However, 
in  every  case  you  must  go  through  the  following  steps: 

Access  and  sign  on  to  the  computer  of  your  choice. 

Enter  the  data  required  into  a  data  file  and  save  it. 

Execute  the  program. 

Sign  off  the  computer. 

The  balance  of  this  section  is  devoted  to  answering 
the  questions  asked  by  CASHII. 

Once  you  have  begun  execution  of  CASHII,  the  first  question 
will  be  "enter  input  file  name".  Supply  the  name  of  the 
file  that  contains  your  data  in  response  to  this  question. 

Next  the  program  asks  you  to 

Enter  the  progress  payment  lag  time. 

and 

What  is  the  delivery  payment  lag  time? 
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CAS  HI  I  BASICS  CONT'D 


LIMIT  ON 
LAG  TIME 


REPORT 

WIDTH 


EXECUTING  CAS  HI  I 


These  two  numbers  are  very  significant  in  terms 
of  the  overall  analysis.  Progress  payment  lag 
tends  to  be  the  more  significant.  Two  rules  must 
be  followed  or  CASHII  will  not  process  your  data. 
Progress  payment  lag  time  may  not  exceed  56  days. 
Delivery  payment  lag  time  may  not  exceed  60  days. 

Longer  lag  times  tend  to  increase  the  contractor 
investment  ratio  and  if  significant  enough,  increase 
the  progress  payment  rate. 

The  next  question  enables  you  to  specify  a  particular 
progress  payment  rate.  If  you  answer  yes,  CASHII  asks 
you  to  enter  the  rate.  Answering  no  allows  the  program 
to  compute  the  rate. 

The  next  question  is:  After  how  many  days  would  you 
like  the  alternate  liquidation  rate  used? 

The  alternate  liquidation  rate  cannot  be  used  until 
at  least  365  days  into  the  contract. 

The  next  question  is:  Would  you  like  to  see  a 
transaction  report? 

Answering  yes  provides  the  output  discussed  in  the 
next  section.  Note  that  the  report  is  125  characters 
wide.  The  transaction  report  is  useful  for  determining 
the  actual  cash  flow  of  the  contract.  If  you  are 
interested  only  in  the  progress  payment  rate  and  the 
contractors  investment  ratio,  it  can  be  skipped. 

The  final  question  is:  Would  you  like  to  see  a  recap 
of  the  cost  report  data? 

Answering  yes  provides  the  output  discussed  in  the  next 
section.  This  report  is  132  characters  wide.  The  recap 
of  cost  statements  can  be  very  useful  in  detecting  a 
typing  mistake  on  the  input  data  file.  It  simply 
formats  nicely  and  prints  all  the  type  3  transaction 
data  from  the  file,  with  totals.  You  may  routinely 
answer  no  unless  you  expect  a  problem  in  the  data. 
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2.  CAS  HI  I  BASICS  CONT'D 


EXECUTING  CAS  HI  I 


Now  CASHII  produces  the  output  you  requested  and  the 
Analytical  Report.  On  completion  of  all  the  output, 
one  final  question  is  asked: 

Would  you  like  to  run  the  model  again  using 
the  same  datafile  but  changing  the  terminal 
input  ? 

Answering  yes  starts  the  run  over  again  at  the  question 
"Enter  progress  payment  lag  time".  Answering  no  stops 
the  program. 

If  you  have  another  data  file  that  you  wish  to  process, 
you  should  answer  no,  let  the  program  stop  and  then 
execute  it  again. 

See  the  appendix  for  complete  annotated  examples  of 
executing  CASHII. 

Now  we  are  ready  to  discuss  the  output  in  detail. 

That's  the  subject  of  the  next  section. 
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CAS  HI I  OUTPUT 


AVAILABLE  REPORTS 


CASHII  offers  to  produce  three  reports  each  time 
it  is  executed.  One  of  them,  the  Analytical  Report, 
is  always  produced.  An  example  of  it  was  shown  in 
section  1,  A  Sample  CASHII  Session.  It  answers  the 
question;  What  will  the  flexible  progress  payment 
percentage  be?  The  other  two  reports  are  both 
optional  and  are  produced  only  if  you  request  them. 
They  are  the  Transaction  Report  and  the  Recap  Cost 
Statement  Report.  Both  of  them  round  to  the  nearest 
whole  numbe  r  . 

Let's  address  the  reports  in  the  same  order  in 
which  they  are  produced. 

TRANSACTION  KEPORT 


If  you  answered  yes  for  the  transaction  report, 
that  will  be  the  first  one  generated.  Figure  4  shows 
what  it  looks  like: 
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05U6  /  ;*  7000  5.0  6vf.O  GGGO  G-vS  ;:41  7 

0614  /  4  7000  0  7000  6060  1 4<  >  7000  700  7700 


DEPARTMENT  OF  DEFF  NSE  CONTRACT  FINANCING  Mu  DLL 
VERSION  DATED  F E  RR  1.1  ARY  1.  1983 
TRANSAC  T  I  ON  REPORT 


3.  CAS  HI  I  OUTPUT  CONT'D 


Working  across  the  report  from  left  to  right  you  see 
that  each  transaction  has  generated  10  columns  of 
information.  This  includes  the  type  2  transactions, 

Planned  Progress  payments  which  are  inserted  by 
CASHII.  Let's  look  at  those  columns  which  may  not 
be  self-explanatory: 

Column  3  is  calculated  as  column  1  minus  column  2. 

Column  5  involves  several  calculations  so  it  is  best 
explained  using  our  example.  Note,  that  the  delivery 
amount  of  the  first  planned  delivery  is  $250,  the 
ordinary  liquidation  rate  is  .98  and  the  profit 
rate  is  .10.  The  calculations  are: 

250  x  .98  =  245  =  liquidation  amount 

250/(  1  +  .  10)  =  227  .  3  *=  cost  in  this  delivery 

227.3  x  .98  =  222.7  =  cost  previously  reimbursed  as  progress 

payment  s 

227.3  -  222.7  ■*  4.6  cost  reimbursed  at  delivery 

(rounds  to  5)  displayed  in  column  5. 

Column  7  also  involves  some  calculating  using  some  of 
the  same  numbers  as  column  5: 

250  -  245  =  5  =  net  payment  at  delivery 

5  -  4.6  «=  . 4  »  profit  paid  at  delivery  (rounds  to  0) 
displayed  in  column  7. 

Column  10  is  calculated  by  subtracting  the  liquidation 
amount  (calculated  in  column  5)  from  cumulative 
progress  payments. 


„ J 
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CAS  HI  I  OUTPUT  CONT'D 


ANALYTICAL  REPORT 


The  analytical  report  is  always  produced.  It 
contains  the  key  items  of  Information  that  CASHII  is 
all  about.  Namely,  the  progress  payment  rate  and 
the  contractor  investment  ratio.  Recall  from  our 
earlier  dicussion  that  the  progress  payment  rate 
may  range  up  to  1002  while  the  contractor  investment 
ratio  is  held  at  approximately  52.  Details  on  the 
method  of  calculating  the  contractor  investment 
percentage  are  found  in  section  4,  short  guide 
to  syntax. 

Figure  5  is  a  repeat  of  the  sample  Analytical 
Report  shown  earlier: 
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DEPARTrtEWT  OF  DEFENSE  CONTRACT  FINANCING  MODEL 
VERSION  DATED  FEBRUARY  1.  1983 
ANALYTICAL  REPORT 


PROJECT  TITLE  CASH  EIAIPlE  WITH  PROJECTED  DATA 


CONTRACT  FRIC  77 00.00 
TOTAL  CONTRACTOR  COST  7000.00 
PROFIT  PAID  TO  CONTRACTOR  700.00 
START  UP  COST  OF  CONTRACT  0.00 
CONTRACT  START  DATE  820101 
DATA  FILE  PROFIT  PERCENTAGE  10.00 
CONFUTED  PROFIT  PERCENTAGE  10.00 


44444444444444444444444444444444444444444444444444444444444444444444444444 


4444  PROGRESS  PAYMENT  RATE  DATA4444 


44444444444 

PROGRESS  PATIENT  RATE  4  9S.il  t 

4  4 

ORDINARY  LIQUIDATION  RATE  »  9S.00  * 

4  4 

ALTERNATE  UQL'IMTICS  RATE  »  89.19  » 

4  4 

CONTRACTOR  INVESTMENT  RATIO  »  5.42  4 

44444444444 


4444444444444444444 44444444444444 44444444444 444 444 444444444444444444444444 
444444444 14 4444444444444 444 114444444441 44444444444444444444444444444444(44 


COST  ELEMENT  DATA 

I  KANE  UNPAID  COST  1PAID  PAID  COST  ELGIBILITY 

DATS  FLOAT  DATS  FLOAT  PROGRESS  PAYMENT 


H4 44 4 4 44 44 4 44 444  4444444 4 4 44 4 444 444 4 44 4 4 444 4444444 444444444 4444 4444 4444444 


I  DIRECT  LABOR 

-2 

INCURRED  COST 

2  OVERHEAD 

15 

INCURRED  COST 

3  SUBCONT  PROG  PAT 

21 

81.0 

-2 

SUBCONTRACT  PROG  PAT 

4  MATERIAL 

28 

80.0 

-2 

PAID  COST 

5  PURCHASED  PARTS 

21 

9  0.0 

-1 

PAID  COST 

A  INTERDI VISIONAL 

15 

90.0 

-4 

PAID  COST 

H4444  4444444444444444444-44444  444444444  4444  444  4444  44444444  444  4444444444444 

PROGRESS  PAYMENT  LAC  TIRE  IN  DATS  6 
DELIVERY  PAYMENT  LAC  TIKE  IN  DATS  II 
DATE  OF  FINAL  DELIVER!  830525 


PROCRESS  PAYMENT  RATE  COMPUTED  8T  PROGRAM  98.00 

44444444444444444444444444444444444444444444441444444414444444444444444444 


FIGURE  5 


3.  CAS  HI  I  OUTPUT  CONT'D 


ANALYTICAL  REPORT 


The  first  block  of  information  consists  of  a  summary 
of  data  from  your  data  file  and  results  of  CASHlI's 
calculation  of  profit  percentage.  The  calculated 
profit  percentage  and  the  percent  specified  in  the 
first  line  of  your  data  file  must  be  the  same  or  the 
program  will  stop. 

Contract  price  is  the  sum  of  all  the  deliverables 
in  the  data  file.  Total  contractor  cost  is  the 
sum  of  all  the  cost  elements  in  the  datafile. 

The  difference  between  those  two  numbers  is  the 
profit.  Start  up  cost  and  start  date  are  simply 
read  in  from  the  data  file. 

Next  is  a  block  showing  the  result  of  the  calculations 
which  have  taken  place.  In  this  example  the  progress 
payment  rate  was  calculated  to  be  98%.  The  ordinary 
liquidation  rate  is  always  the  same  as  the  progress 
payment  rate.  Liquidation  rate  is  the  portion  of  any 
deliverable  amount  which  is  assumed  to  have  already 
been  reimbursed.  The  alternate  liquidation 
rate  is  calculated  by  CASHII  and  can  be  used,  at  your 
option,  after  365  days  of  the  contract.  Finally,  the 
contractor  investment  ratio  is  calculated.  This  number 
should  not  be  less  than  5%. 

The  next  block  of  data  on  the  Analytical  Report  is  a 
formatted  printout  of  your  cost  element  data  from  the 
input  data  file.  You  should  verify  that  these  numbers  are 
what  you  expected.  If  not,  it  will  be  necessary  to  change 
the  data  file. 

Finally,  the  Analytical  Report  shows  you  how  you  answered 
the  two  lag  time  questions  asked  at  the  terminal  and  the 
date  of  final  delivery  as  specified  in  the  data  file. 
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CAS  H I  I  OUTPUT  CONT'D 


RECAP  OF  COST  STATEMENT  REPORT 


The  Recap  Report  is  produced  last,  if  you 
requested  it.  Here's  a  sample  of  what  it  looks  like: 


PACE  « 

EFWTier  or  DEFTXSE  cwtract  fimncik  idol 
WISH*  as1!!  FE3RUAR'  1.  1983 
RECAP  or  COS’  STSTIKir 

HOT!:  IOTA.  FOR  FIRST  COST  STATBCliT  IUCiUDES  STAR'  UF  COS* 


CASH  El  ARP.:  WITH  PROJECT!!  MTS 


DA*E 

8; 

i: 

83 

84 

85 

8: 

r 

8E 

85 

81? 

TC’R. 

828:38 

l 

« 

8 

188 

8 

8 

8 

8 

8 

8 

188 

eci:;= 

8 

8 

8 

188 

8 

8 

8 

8 

8 

8 

188 

see;? 

158 

58 

8 

8 

8 

8 

8 

8 

8 

8 

288 

8:r*38 

158 

51 

188 

188 

188 

188 

8 

8 

8 

8 

oRf 

828538 

158 

58 

188 

188 

188 

188 

8 

8 

8 

8 

688 

8C*;?? 

158 

58 

188 

188 

188 

188 

8 

8 

8 

8 

688 

821*58 

158 

58 

188 

188 

188 

188 

8 

8 

8 

8 

688 

R28S38 

158 

58 

188 

188 

188 

188 

8 

8 

8 

8 

688 

8il«3 i 

158 

58 

-188 

3 88 

188 

188 

8 

8 

8 

8 

688 

RT 1838 

158 

58 

-188 

388 

188 

188 

8 

8 

8 

8 

6Af 

CIJ38 

158 

58 

-18  8 

388 

188 

188 

8 

8 

8 

8 

688 

8;::;: 

158 

58 

-188 

388 

188 

8 

8 

8 

8 

8 

588 

838138 

158 

58 

-188 

388 

8 

8 

8 

8 

8 

8 

*88 

83e::= 

158 

58 

8 

288 

8 

8 

8 

8 

8 

8 

*88 

838:38 

158 

58 

8 

8 

8 

188 

8 

8 

8 

8 

388 

838*38 

158 

58 

8 

8 

8 

8 

8 

8 

8 

a 

288 

TO*  A. 

2188 

788 

8 

2*88 

988 

988 

8 

8 

8 

8 

7888 

Careful  study  will  show  that  this  report  pulls  all 
the  transaction  type  3's  from  your  data  file,  formats 
them  and  prints  them  for  your  inspection. 

As  mentioned  previously,  this  is  a  good  way  to  check 
the  validity  of  your  input  data.  If  CASHII  is  giving 
unexpected  results,  check  here  to  see  that  the 
computer  actually  has  the  data  you  think  it  does. 

One  other  point  of  interest  is  the  negative  numbers 
in  cost  element  it  3  ,  Sub-contractor  Progress  Payments. 
These  simply  indicate  liquidation  of  earlier  entries. 
The  total  for  subcontractor  cost  elements  must  add  to 
zero  over  the  life  of  the  contract. 
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4.  CAS  HI  I  TERMS,  DEFINITIONS  AND  SYNTAX 


CASHII  is  a  very  simple  program  to  run.  The 
questions  it  asks  and  the  error  messages  it  provides 
are  as  clear  as  possible  and  provide  as  much  Information 
as  possible. 

Syntax  refers  to  exactly  how  you  must  provide  information 
so  that  it  will  be  understood  by  the  program.  For 
instance,  items  in  the  datafile  must  be  separated  by 
commas  and  percentages  must  be  expressed  as  a  decimal. 

In  fact,  those  are  the  two  most  notable  syntax  requirements. 
Most  of  the  other  rules  are  imposed  by  the  program  itself 
(such  as  maximum  delivery  payment  lag  time  of  60  days) 
and  so  will  be  discussed  with  the  appropriate  definitions  of 
error  messages. 

Syntax  for  the  data  file: 

Initial  Line: 

820  101 ,0 ,6  ,25  ,  .  1 

A  A  A  A  A 

I  Profit  rate  as  decimal 
Number  of  transactions  in  file 
Number  of  cost  elements  (max  of  10) 

Start  up  cost  (max  6  digits) 

Date  contract  begins 

Title  line  (must  be  second) 

CASH  RUN  PROJECT  J-327 

A 

I  Run  title  (max  50  characters) 
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4.  CAS  HI  I  TERMS ,  DEFINITIONS  AND  SYNTAX  CONT'D 


Cost  element  lines 


Direct  labor  ,  INCUR, -2  ,0 ,0 
Ma t e r i a  1 , PAIDC  ,  28,. 8,-^ 

A  A  A  A  A 


'Float  for  paid  costs  (must  be  0  for  INCUR) 
cost  paid  during  accounting  period  (0  for  INCUR) 
Float  for  unpaid  items 

Type  of  cost  element  (must  be  INCUR,  PAIDC  or  SUBCT) 
Cost  of  element  title  (max  of  20  characters) 

You  must  have  as  many  cost  element  lines  as  you  specified 
in  the  initial  line  of  the  file. 


Transaction  lines 


Type  1  (Actual  progress  payment  received) 


1 ,820404,270, .9 

A  A  A 


|  I  Progress  payment  rate  (must  be  decimal  number) 
'  Actual  payment  received(max  of  6  digits) 

Date  payment  received. 


Type  2  (Planned  Progress  Payment) 


Computed  by  the  CASHII  program  and  is  not  to  be  in  the  data  file. 

Type  3  (Monthly  cost  statement.  Actual  or  estimated) 

3,820830,150,50,100, 100,100,100 
3,820930,200,0,-100,0,100,0 

A  V ^ ' 

A 

I  Individual  cost,  one  entry  per  cost 
element  (max  of  6  digits  each) 

Date 
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CAS  HI  I  TERMS,  DEFINITIONS  AND  SYNTAX  CONT'D 


Transaction  Lines  Cont'd 
Type  4  (Planned  delivery) 

4,830201 ,1000 

A  A 

lvalue  of  delivery  (max  of  6  digits) 

Planned  date  of  delivery 

Type  5  (Actual  delivery) 

5,820425,250 , .9 

A  A 

Liquidation  rate  (must  be  a  decimal  number) 

Value  of  actual  delivery  (max  6  digits) 

Date  of  actual  delivery 

Most  terms  were  defined  as  part  of  section  2,  creating 
the  data  file.  The  definitions  here  supplement  the 
ones  given  earlier.  These  definitions  are  in  alphabetical 
order  . 

ACCOUNTING  PERIOD  -  The  period  over  which  costs  are  accumulated 
to  be  billed  in  a  cost  statement.  The  program  is  designed  to 
compute  progress  payments  no  more  frequently  than  monthly; 
however,  a  monthly  cost  accounting  period  may  be  a  calendar 
month,  30  days,  4  weeks,  or  5  weeks.  Cost  accounting  periods 
must  be  at  least  28  days  in  length  and  there  may  be  no  more  than 
twelve  per  year.  Used  in  type  3  transactions  in  the  input  data 
file. 
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CAS  HI  I  TERMS,  DEFINITIONS  AND  SYNTAX  CONT'D 


ALTERNATE  LIQUIDATION  RATE  -  That  portion  of  an  actual 
delivery  value  which  is  assumed  to  have  already  been 
reimbursed.  The  alternate  rate  may  only  be  used  after 
365  days  of  the  contract  has  elapsed.  See  Ordinary 
Liquidation  Rate,  see  DAR  Appendix  E,  Part  5. 

CASHII  PROGRAM  -  The  CASHII  computer  program  calculates 
the  highest  whole  number  progress  payment  rate  that  is 
possible  while  keeping  the  contractor  weighted  cumulative 
work- in-pr oce s s  inventory  from  going  below  a  level  of 
5. OX.  The  program  is  written  in  ANSI  FORTRAN  x3. 9-1978  . 

CONTRACT  START  AND  END  DATES  -  The  contract  start  date 
is  the  date,  in  year,  month,  day  (YYMMDD)  format,  of 
the  first  day  of  the  accounting  period  of  the  first  cost 
statement.  If  actuals  are  input,  this  will  be  the  day 
of  incurred  cost  for  the  proposal.  If  there  is  no  start-up 
cost,  the  contract  start  date  will  be  the  first  day  of  the 
month  of  de f i nl t i za t ion  .  The  contract  end  date  is  the  date 
of  the  final  delivery.  Used  in  the  input  data  file. 

CONTRACTOR  INVESTMENT  RATIO  (CIR)  -  Is  calculated  with 
weighted  day  dollars.  Cumulative  day  dollars  of  costs 
reimbursed  (CR)  are  subtracted  from  cumulative  paid  costs 
to  get  unreimbursed  cost.  CIR  is  then  unreimbursed  costs 
divided  by  cumulative  work  in  process  inventory. 

Work- i n-pr oce s s  (WIP)  is  calculated  as  weighted  cumulative 
paid  cost  (CP)  less  the  weighted  cumulative  cost  of  deliveries 
made  (COD).  COD  is  weighted  on  the  day  of  delivery  payment 
and  then  removed  from  the  weighted  CP  to  arrive  at  a  weighted 
WIP  amount.  Thus: 

WIP  =  CP  -  COD 

CIR  =  (CP  -  CR) / WI P 

CASHII  seeks  to  hold  CIR  to  not  less  than  5X.  CASHII  performs 
successive  calculations  to  determine  the  highest  progress  rate 
(  up  to  100X  )  possible  while  keeping  the  weighted  Contractor 
Investment  Ratio  equal  to  or  greater  than  5X.  The  result  of 
the  calculation  is  printed  in  the  Analytical  Report. 
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COST  AS  INCURRED  -  Cost  as  Incurred  is  a  type  of  cost 
which  is  eligible  for  progress  payments  when  it  is 
incurred.  Incurred  costs  are  those  costs  identified  through 
the  use  of  the  accrual  method  of  accounting  and  reporting. 
Facilities  capital  cost  of  money,  which  is  recognized  as  an 
allowable  cost,  is  also  an  incurred  cost  for  progress  payment 
purposes.  Used  in  the  input  data  file  for  appropriate  cost 
elements.  Use  the  code  INCUR. 

COST  AS  PAID  -  Cost  as  paid  is  a  type  of  cost  which  is 
not  eligible  for  progress  payments  until  it  is  paid.  Used 
in  the  input  data  file  for  appropriate  cost  elements. 

Use  the  code  PAIDC. 

COST  ELEMENTS  -  Cost  elements  are  those  groupings  of  cost 
which  are  of  the  same  progress  payment  eligibility  and  of  similar 
float  times.  The  model  will  accept  up  to  10  cost  elements. 
Contractors  are  encouraged  to  develop  computer  programs  to 
reformat  DD  Form  633  data  to  a  format  consistent  with  the 
DOD  Cash  Flow  computer  model  input  file  requirements.  All 
cost  elements  must  be  "typed"  as  on  of  INCUR,  PAIDC  or  SUBCT. 
Must  be  specified  in  the  input  data  file. 

COST  ELIGIBLE  FOR  CUSTOMARY  PROGRESS  PAYMENT  -  Includes  only 
those  recorded  or  estimated  costs  which  result,  at  the  time 
of  the  cost  statement  request,  from  payment  made  by  cash,  check, 
or  other  form  of  actual  payment  for  items  or  services  purchased 
directly  for  the  contract,  together  with  cost  incurred,  but  not 
necessarily  paid,  for  materials  which  have  been  issued  from  the 
Contractor's  stores  inventory  and  placed  in  the  production 
process  for  use  on  the  contract,  for  direct  labor,  for  direct 
travel,  for  other  direct  in-house  costs,  and  for  properly 
allocable  and  allowable  Indirect  costs.  The  Cashll  Flow  Model 
converts  incurred  cost  to  paid  cost  by  adding  the  cost  element 
payment  float  to  the  incurred  cost  date  (i.e.,  month-end  date 
plus  float). 
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COST  ELIGIBLE  FOR  100%  PROGRESS  PAYMENT  -  The  amount  of 
progress  payments  which  have  been  paid  to  contractors' 
subcontractors  and  other  divisions  are  eligible  for  100% 
reimbursement.  Used  in  the  input  data  file  for  appropriate 
cost  elements.  Use  the  code  SUBCT. 

COST  STATEMENT  OF  MONTHLY  COST  -  The  actual  or  projected 
monthly  cost  (by  up  to  10  cost  elements)  estimated  to  be 
incurred  or  paid  during  the  cost  accounting  period.  Specified 
in  the  input  data  file  as  transaction  type  3.  Must  be 
entered  in  order  by  date. 

COST  STATEMENT  DATE  -  The  last  day  of  the  cost  accounting 
period.  Entered  in  the  input  data  file  as  year,  month, 
day ,  i.e.,  820228. 

CUSTOMARY  PROGRESS  PAYMENT  RATE  -  The  uniform  standard  percent 
(90%  or  95%)  or  the  flexible  percent  (if  requested  by  the  contractor) 
of  the  amount  of  the  contractor's  total  costs.  Calculated 
by  CASHII  or  may  be  entered  in  response  to  the  proper  question 
when  CASHII  is  executing. 

DATA  FILE  -  A  collection  of  information  stored  in  the  computer. 

For  the  CASHII  system  the  contract  information  discussed  in  section 
2,  necessary  to  perform  the  flexible  progress  payment  calculations. 

DELIVERY  PAYMENT  LAG  -  is  the  number  of  days  between  the 
delivery  date  and  the  receipt  of  the  actual  delivery  payment. 
Specified  in  response  to  the  question  asked  when  CASHII  is 
executed.  May  not  exceed  60  days. 

ERROR  MESSAGE  -  A  message  supplied  by  CASHII  indicating  some 
problem  exists  which  prevents  normal  program  functions.  For 
instance,  entering  a  lag  time  which  is  beyond  the  maximum 
allowed  by  the  program.  See  the  listing  of  error  messages 
which  concludes  this  section. 
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FLEXIBLE  PROGRESS  PAYMENT  RATE  -  The  flexible  progress 
payment  rate  is  the  progres  payment  rate  calculated 
by  the  CASHII  program.  Once  the  contract  is  definitized 
this  rate  is  maintained  throughout  the  life  of  the  contract. 
However,  if  actual  and  projected  cash  flow  data  generated 
during  performance  of  the  contract  reveal  that  the  progress 
payment  rate  will  result  in  a  weighted  average  investment 
in  work-in-proces  inventory  by  the  contractor  in  excess  of 
7%  or  less  than  37.  the  progress  payment  rate  shall  be  re¬ 
determined  by  using  the  DOD  Cash  Flow  Computer  model.  In 
no  event  will  the  progress  payment  rate  be  less  than  the 
uniform  standard  progress  payment  rate  or  greater  than  100%. 

FLOAT  -  Float  is  the  number  of  days  between  the  cost  statement 
date  and  the  time  the  cost  is  paid  on  a  cash  basis.  Bank 
lag  times  are  included  in  the  float  number  entered  in  the 
data  file.  The  program  will  accept  both  positive  and  negative 
whole  numbers  for  float  entries.  Specified  for  each  cost 
element.  See  the  examples  of  calculations  in  section  2. 

MONTH  OF  DEFIN1TIZATION  -  The  month  of  contract  de f i n i t i z a t i on 
is  the  month  in  which  a  contract  is  signed  or  definitized. 

This  will  be  the  first  cost  statement  period. 

ORDINARY  LIQUIDATION  RATE  -  That  portion  of  an  actual 
delivery  value  which  is  assumed  to  have  been  already 
reimbursed.  Always  equal  to  the  progress  payment 
rate.  Used  in  the  input  data  file,  transaction  type  5. 

See  also  Alternate  Liquidation  Rate,  see  DAR ,  Appendix  E, 

Part  5. 

PERCENT  OF  MATERIAL  COST  PAID  -  The  percent  of  material  cost 
that  is  paid  as  of  the  cost  statement  date.  An  estimate  of  the 
percentage  of  dollars  paid  on  invoices  per  accounting  period 
should  be  made  and  included  in  cost  element  description 
lines  in  the  data  file. 


CAS  HI I  TERMS,  DEFINITIONS  AND  SYNTAX  CONT'D 


PROGRESS  PAYMENT  ELIGIBILITY  CODES  -  There  are  three  types 
of  costs  with  different  progress  payment  eligibility  codes. 

These  are:  cost  as  incurred  (INCUR),  cost  as  paid  (PAIDC) 
and  cost  eligible  for  100%  progress  payment  (SUBCT). 

PROGRESS  PAYMENT  LAG  -  Progress  payment  lag  is  the  number 
of  days  between  the  end  of  the  cost  statement  date  and  the 
progress  payment  receipt.  This  lag  should  not  normally  include 
more  than  5  working  days  from  the  cost  statement  date  for  the 
contractor  to  prepare  and  submit  a  progress  payment  request. 
Specified  when  executing  CASHII.  May  not  exceed  56  days. 

START  UP  COST  -  Start-up  cost  is  the  cost  authorized  and 
incurred  by  the  contractor  prior  to  de f i ni t i z a t i on  ,  i.e., 
approval  by  the  government  of  the  signed  contract.  If  progress 
payments  have  been  received  during  this  time  start-up  cost 
is  calculated  by  totaling  the  cost  to  date  of  de f in i t i za t i on 
and  subtracting  any  progress  payments  received  plus  applicable 
profit.  Start-up  cost  is  input  in  the  first  line  of  the  data  file. 

SUBCONTRACTOR  PROGRESS  PAYMENTS  -  Subcontractor  progress  payments 
are  eligible  for  100%  reimbursement  to  the  contractor.  This  is  the 
only  cost  element  that  accepts  negative  whole  numbers  in  a  cost 
statement.  These  negative  numbers  represent  subcontractor 
liquidations  to  accumulated  progress  payments  when  the  subcontractor 
starts  deliveries.  The  sum  of  subcontractor  progress  payments  must 
equal  0  at  the  time  of  the  last  transaction. 
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TRANSACTION  TYPE  -  Each  type  of  transaction  used  in  the 

third  section  of  the  input  data  file  must  be  Identified 

uniquely.  There  are  five  types: 

1)  Actual  progress  payment  received.  These  will  be 
entered  into  the  input  data  file  as  appropriate 
to  reflect  receipt  of  payment.  Contains  three 
items,  date,  amount,  progress  payment  rate. 

2)  Planned  progress  payment.  These  transactions 
show  up  in  the  transaction  report.  They  are 
calculated  by  and  used  only  by  the  CASHII  program. 

3)  Monthly  cost  statement  (actual  or  estimated). 

Usually  make  up  the  bulk  of  the  transactions 
entered  in  the  input  datafile.  Contains  date 
plus  one  entry  for  each  cost  element,  zero  if 
no  value. 

A)  Planned  delivery  contains  date  and  value. 

5)  Actual  delivery.  Contains  date,  value, 
liquidation  rate. 

All  transactions  must  be  entered  in  order  by  date. 

The  total  number  of  transaction  lines  must  be  equal 
to  the  number  of  transactions  specified  in  the  first 
line  of  the  data  file.  The  total  number  of  transactions 
(including  type  2's)  may  not  exceed  325.  If  yours  do, 
try  combining  earlier  historical  ones. 
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UNLIQUIDATED  PROGRESS  PAYMENT  -  Column  10  on  the 
Transaction  report.  It  is  that  portion  of  cumulative 
progress  payments  which  have  not  been  liquidated. 

WORK- IN-PROGRESS  -  A  calculation  performed  by  the 
program  in  order  to  calculate  contractor  investment 
ratio.  WIP  is  calculated  as  cumulative  day  dollar 
cost  of  deliveries  made  subtracted  from  cumulative 
day  dollar  paid  cost. 
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C  AS  HI  I  TERMS 


DEFINITIONS  AND  SYNTAX  CONT'D 


ERROR  MESSAGES 


As  you  might  expect  with  computers,  any 
number  of  things  can  keep  it  from  working  exactly 
right.  CASHII  tries  hard  to  give  you  as  much  informa¬ 
tion  as  possible  about  the  error.  If  the  error  is 
on  a  specific  line,  that  line  will  be  printed  at 
the  terminal.  For  instance,  the  following  line  has 
an  error.  Can  you  see  it? 

3,820330,150,50,100100,100,100 

Right,  the  problem  is  the  missing  comma  between  the 
first  two  100s.  In  this  case  the  error  message  is: 

Error  in  the  following  input  line  -  then  the  line  prints 
then  a  second  message  prints:  The  program  was  stopped 

because  of  an  input  file  error. 

and  the  program  stops.  Now  you  have  to  fix  the  problem 
and  execute  CASHII  again.  Sometimes  when  you 
get  the  error  message  above,  there  is  nothing  obviously 
wrong.  The  first  thing  to  try  is  typing  the  entire  line 
over  again  and  saving  the  new  version.  Most  times  when  an 
error  occurs,  CASHII  continues  checking  the  input  data  file 
for  other  errors. 
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CASH  TERMS,  DEFINITIONS  AND  SYNTAX  CONT'D 


ERROR  MESSAGES  Cont'd 


The  following  is  the  list  of  error  messages  with 
some  comments  on  corrective  action  where  it  isn't 
obvious . 

Actual  progress  payment  must  have  a  value  greater 
than  0.  The  progress  payment  dated  'date'  is  less 
than  0. 

'date'  will  be  the  date  of  the  transaction. 

Fix  the  line  and  try  again. 

Cost  and  delivery  transactions  must  not  have  value 
larger  than  six  digits.  The  cost  statement  dated  'date' 
has  a  value  that  is  too  large. 

'date'  is  the  date  of  the  type  3,  4  or  5  transaction 
in  error.  Could  be  a  missing  comma.  If  not  divide 
all  your  input  numbers  by  1 0 , 1  00 , 1 000  ,  e t c  .  to  get 
smaller  numbers. 


Cost  reimbursement  cannot  be  greater  than  incurred  cost. 

The  transaction  dated  'date'  violates  this  rule.  The 
delivery  payments  to  date  exceed  the  cost  to  date. 

Total  cost  at  this  point  from  cost  statements  XXXXX 

Total  deliveries  at  this  point  XXXXX 

Cost  reimbursed  at  this  point  based  on  delivery  prices  XXXXX 

'date'  identifies  the  transaction  where  this  error  was 
noticed.  Possibly  a  missing  type  3  transaction.  Could 
also  be  a  type  4  or  5  transaction  with  too  large  a  value. 
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4  . 


ERROR  MESSAGES  Cont'd 


Cost  element  'X'  does  not  have  a  valid  cost  element  code. 

'X'  will  be  a  number.  The  program  starts  counting 
at  the  first  cost  element.  The  number  6  would  mean 
the  sixth  one  down  doesn't  specify  INCUR,  SUBCT  or 
PAIDC. 

Data  is  not  in  chronological  order.  Check  transactions 
dated  'date'  and  'date'  to  correct. 

'date'  indicates  transactions  where  the  problem 
was  noticed.  Possibly  a  typo  or  you  just  don't 
have  all  the  transactions  in  order  by  date. 

Data  file  contains  more  actual  progress  payments  than 
cost  statements.  The  number  of  actual  progress  payments 
should  equal  the  number  of  cost  statements  before  the 
last  actual  progress  payment. 

could  it  be  you  accidently  wiped  out  a  cost  statement? 
Count  them.  Or  maybe  you  didn't  mean  to  enter  an 
actual  progress  payment. 

Data  file  indicated  'X'  transactions  were  included  in 
the  data  file.  'Y'  were  actually  included. 

'X'  and  'Y'will  be  different  numbers.  They  need  to  be 
the  same.  Your  file  said  (in  the  first  line)  that 
13  transactions  were  included,  the  program  only  found 
12.  Possibly  a  typo  or  maybe  you  forgot  one.  Fix  and 
re-run 

NOTE:  If  'X'  is  smaller  than  ' Y '  ,  the  program  simply 

ignores  the  excess  data. 
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ERROR  MESSAGES  Cont'd 


Delivery  payment  must  have  a  value  larger  than  0 
but  not  contain  more  than  6  digits.  The  transaction 
dated  'date'  violates  this  rule. 

fix  it.  If  the  value  is  too  big  divide  by  10,100,  etc. 
Remember,  the  rest  of  the  numbers  in  the  file  must  be 
consistent  . 

Do  not  input  any  planned  progress  payments  into  the  data 
file.  The  transaction  dated  'date'  must  be  removed. 

'date'  indicates  the  transaction  in  error.  You  have  a 
type  2  transaction  in  the  data  file.  You  can't  do  that, 
only  the  program  uses  type  2  transactions. 

First  transaction  must  be  a  cost  report. 

you  have  to  have  a  type  3  transaction  as  the  first 
transaction  in  your  data  file. 

Float  days  on  costs  paid  in  the  present  accounting 
period  should  be  negative.  This  is  not  the  case 
for  cost  element  'X'. 

'X'  identifies  : he  cost  element  in  question. 

Liquidation  rate  associated  with  an  actual  delivery 
must  be  between  0  and  1.  The  transaction  dated  'date' 
violates  this  rule. 


'date'  indicates  the  transaction  in  error.  Liquidation 
rate  must  be  a  decimal  number.  A  90 %  rate  is  specified 
as  .  9  . 
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DEFINITIONS  AND  SYNTAX  CONT'D 


ERROR  MESSAGES  Cont'd 


Last  transaction  must  be  a  delivery. 

yours  isn't,  it  should  be.  If  it's  there  check 
the  total  number  of  transactions  in  the  file  and 
make  sure  you  have  the  proper  number  in  the  first 
line  of  the  file. 

Negative  cost  is  permitted  only  for  subcontractor 
type  progress  payments.  The  cost  statements  dated 
'date'  has  a  negative  value  and  is  not  a  subcontractor 
cost  element. 

probably  a  typo  . 

Number  of  cost  elements  must  be  between  1  and  10, 

combine  similar  costs  into  one  category. 

Percent  paid  in  the  present  accounting  period  should 
be  between  0  and  1  for  cost  element  'X'. 

'X'  identifies  the  cost  element  in  question,  counting 
down  from  the  first  cost  element.  This  value  must 
be  a  decimal  number.  80%  would  be  .8. 

Planned  progress  payments  cannot  occur  less  than  28  days 
apart.  The  transaction  dated  'date'  violates  this  rule. 

check  input  file  to  insure  cost  statements  are  at 
least  28  days  apart. 

Progress  payment  rate  must  be  between  0  and  1.  The 
transaction  dated  'date'  violates  this  rule. 

date  identifies  the  transaction  in  error.  You  must 
specify  the  rate  as  a  decimal.  90%  would  be  .9. 


CASH I I  TERMS,  DEFINITIONS  AND  SYNTAX  CONT'D 


ERROR  MESSAGES  CONT'D 


The  profit  rate  computed  from  the  data  file  (XX. XX)  does 
not  match  the  profit  rate  (XX.i’X)  in  the  first  line  of 
the  data  file. 

Computed  profit  based  on  the  following  values  computed 
from  data  inputs: 

Total  price  from  delivery  prices  XXXXXX 

Total  cost  from  cost  statement  XXXXXX 

Profit  dollars  XXXXX 

Profit  rate  must  be  between  0  and  1. 

a  mistake  on  the  first  line  of  your  data  file.  The 
last  number  is  the  profit  rate  and  it  has  to  be  a 
decimal  number.  10%  profit  is  specified  as  .1. 

Start-up  cost  cannot  be  a  negative  number. 

fix  it. 

Subcontractor  progress  payments  should  ajd  to  0  across 
the  life  of  the  contract  for  cost  element  'X'. 

subcontractor  costs  must  be  fully  liquidated. 

' X '  identifies  which  cost  element  has  the  problem. 

Fully  liquidated  means  add  to  zero.  You  don't  have 
enough  negative  numbers  to  equal  the  total  value  of 
subcontractor  expenses. 

Transaction  dated  'date'  has  an  illegal  transaction  code. 

The  code  must  be  a  1,  2,  3,  4,  or  5. 

actually,  it  can't  be  a  2  either. 

The  transaction  date  'date'  has  an  illegal  month  'XX'. 

The  month  is  less  than  zero  or  greater  than  14. 

The  transaction  date  'date'  has  an  illegal  day  'XX'. 

The  day  is  greater  than  the  number  of  days  in  a 
particular  month. 

The  float  days  for  unpaid  costs  cannot  exceed  28  days.  This  is 
not  the  case  for  cost  element  'X'. 

See  note  at  bottom  of  page  19. 
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P-  w-tcrawi. 

PfiSSXdnB 

Beissimm 

REflor 

{EM  Sttfl  -« 
SrSTEfl-  F77  > 


REACT 

lee  920101.0, 6, :?,.i 

lie  CASH  E*Wl£  WITH  FfiQJECTtD  DATA 
12?  DIRECT  LA3OR.mRR«-.-Z.8.0  -c- 
13g  OVt7?€AQ.rwiR.15fg.g 
m  SJKttjT  PgQC  PAT, 20- .9,-2 
156  WgIAL.PAlDC.2fr.tW 
188  PURCHASED  PARTS, PA I  DC ,28,  .9,-1 
170  1NTERD!V1S1CNAl.PA:DC.15..9,-4 
190  3, a013P,6.P, 0,106.6,0 
190  3, S2?£2S.6.6.0, 166,6,0 
£60  3, 826S36- 156.56,8, 8, 8,0 

216  liSSgAJELETtfl  -e - - - — 

£16  4. 9264:5, 25? 

220  3iS£0430i 156,56,166,166,166,166 
230  3,?3??6. 156,56, 16tM06, 166, 166 
EDI  CES  ~r- - 


REACT 

rlncashii 


TIME  DATE 


HIIHmHtHtlliHiHHItiHiltltltHWiWHHIHI 

HI  DEPARTKENT  Of  DEFENSE  CONTRACT  FINANCING  flOCa  HI 
Hi  VERSION  DATED  FEBRUART  l,  1983  hi 

lllllllllllltHillllilHHIIIHHIlHIHIIHHIIIHHI 


CMION-THE  CASH  MBEI  VERSION  IS  NOT  COMPATIBLE  WITH 
THE  USERGU1CE  DATED  AUGUST  28,1981.  PLEASE  CONSULT  THE 
USERGUIDE  DATED  FEBRUART  1,1983  FOR  GUIDANCE 


INPUT  FILE  NAHE’SWPl 


SAMPLE  USING  GE1SCO 


IDENTIFY  TERMINAL  TYPE  AND  SPEED 

ENTER  YOUR  USER  NUMBER 
ENTER  YOUR  PASSWORD 

NEW  IS  THE  COMMAND  NECESSARY  TO  ENTER 
NEW  DATA.  SAMP  1  IS  THE  FILE  NAME. 

F 7  7  MEAN;  FORTRAN 


ACCIDENTALLY  TYPED  2  R'S 
—  IS  THE  CORRECTION  KEY. 


1,8204  IS  A  MISTAKE.  HOLD  DOWN  CONTROL 
•  KEY  AND  TYPE  AN  X.  THE  COMPUTER  PRINTS 
DELETED.  START  THE  LINE  OVER  AGAIN. 

FINISH  ENTERING  YOUR  DATA 

j  when  finished  entering  your  data, 

1  REMOVE  LINE  NUMBERS  FROM  THE  FILE 


SAVE  (REPLACE)  THE  DATA 


EXECUTE  THE  PROGRAM 


PAPER  MOVES  TO  TOP  OF  PAGE  (IF  YOUR 
TERMINAL  IS  EQUIPPED  PROPERLY) 


NOTE:  COMMAND  SYSTEM  REFERENCE  MANUAL 

PUBLICATION  #3501.01  FURTHER 
EXPLAINS  COMMANDS. 


SAMPLE  USING  BCS 


_  u  the  bci  network 
Recess  port  is  bes  ltd 

/. 

^titcl  desired  services  CTS 
•linstrui-cts  online 


CPMOCOH  ftTSEfiVl 
EKTER  PASSWORD: 

cp>flgai 

LOCHSC  -  19:40:29  EST  WEBNESBAT  11/26/83 


ENTER  YOUR  USER  NUMBER 
ENTER  YOUR  PASSWORD 


«  PLEASE  TIPE  OS  !©10  428  -  RAMS  II  *  KV  DOCUHENTS  AND  INCREASED  * 

H  HACHINE  SIZE  REOUIREIENTS  H 

«  PLEASE  TTPE  OS  HERO  417  -  INTELLECT  AVAILABLE  « 

**  PLEASE  TTPE  OS  KERO  435  -  PLOTTING  SERVICES  AVAILABLE  H 

«  PLEASE  TTPE  OS  RERO  436  -  PHONE  NURBER  ADDED  -  SIOUX  FALLS.  SD  H 

«  PLEASE  TTPE  OS  RERO  421  -  TELL-A-CRAF  VERSION  4.1  AVAILABLE  ** 

H  PLEASE  TTPE  OS  RERO  437  -  PHONE  NURBER  OUTAGE  -  PHOENIX, A2.  1/28  « 

«  PLEASE  TTPE  NEWS  HERO  434  -  IRPROVED  LOCAL  DIAL  FOR  RJE  SERVICES  H 

LOGON  AT  17:10:09  EST  FRIDAT  01/28/83  LINE  6D6  (2-1-0ED) 

CRS/SP  REL  1  01/25/83  V00S 
D  (292)  R/0 
ENTER  PROJECT  ID: 

>DC0 

2  (199)  R/0  ENTER  YOUR  PROJECT  ID 


r; 


r; 


DEBIT  SAf?l  DATA  -= - 

E>I  _ _ 

1)82010!, 0,6, 22, .1 
I)CASM  EXfffuE  WITH  PROJECTED  DATA 
I)Di REST  LAPCh.IKClR, -2.8,0 
DflVEftEE).  liBSl  15«M 
DSUBOOKT  fTOG  PAr,SUBCT,20,.8,-2 

DPURCHASED  PARTS, PfiIDC,2P, .9,-1 
I)INTERDIVISI0KAL,PA(0C.15..9,-4 
1)3.320138,0,0,0, 100,  P.0 
1)3,320228,0,0,0,100,0,0 
1)3, 820330- Mi gSJL  - 
1)1,820404,24,820425.250 
1)3,320430,150,50,100,100,100,100 
1)3,820530,150,50,100,100,100,100 
1)3,820630,150,50.100,100,100,100 
I>  -E _ _ 

E)file  ■ 
r; 


EDIT  IS  A  COMMAND,  NECESSARY  TO 
ENTER  DATA 

SAMP  1  IS  THE  FILE  NAME 

DATA  IS  THE  FILE  TYPE 

I  MEANS  WE  WANT  TO  INSERT  DATA 


ENTERING  THE  DATA 


HIT  THE  M  INSTEAD  OF  ,  (8  IS  THE 
CORRECTION  KEY  I  1  .  820404 . 2  WAS  A~M1STAKE 
HOLD  DOWN  THE  CONTROL  KEY,  TYPE  AN  X 
AND  CONTINUE  WITH  THE  CORRECT  DATA. 

ENTERING  A  CARRIAGE  RETURN  WHEN  NO  MORE 
DATA 

SAVES  THE  FILE 


OCftSHII  - - 

ENTER  INPUT  FILDMHE 
>SW  «= - 


EXECUTE  THE  PROGRAM 

ENTER  THE  NAME  OF  YOUR  DATA  FILE 


NOTE:  MAINSTREAM  -  CTS  COMMAND  LANGUAGE 

REFERENCE  MANUAL  FURTHER  EXPLAINS 
THE  COMMANDS. 


APPENDIX  2 


REFERENCE  MATERIAL  FOR  THIS  DOCUMENT  IS 
CONTAINED  IN  DEFENSE  ACQUISITION  REGULATION, 
APPENDIX  E,  PART  5. 


APPENDIX  3 


n  n  n  n  r  —  -i  e  a  u  >  —  n  n  n 


INTEGER  ST DATE , NMCSTL , NMT RAN , ACPRG , L ST DEL , 

3PRGLAG  ,  DELLAG  ,  F'RGFLG  ,  ALTLD  Y  ,  FLQATD  ,  ALQFLG  ,  SUBCNT  , 
j'UFDLNT  ,  STDAY  ,F'RCNT  ,  LN  TST  ,  T  WUFLG.CS  f  DAY  (  1  70)  ,  DAT  I  EY 
REAL  TRNSAC  <325,20)  ,  PRFRAT  ,  PROF  I  T  ,  ELMENT  (10 , 5  >  .OUTPUT  (325,  10)  . 
•LF'RGRl  E  ,  RAT  I O ,  TO  T  P  Y  D  ,  T  GDAY  S  ,  ST  GUST 
REAL  CSTFLT  (  1000,2)  ,  UF'DFLT  (  1000,2)  ,  UPDSUB  (  1 000 , 2 ) 

REAL  CCQST  ,TGF'RGF  ,  TOT  COS  ,  SUMCST  ,  TOTCHG 
CHARACTER*20  C0STEL<10,2) 

CHARACTER*50  TITLE 

CHARACTER*:-  TRNFLG  ,  CSTFLG  ,  FLG I  T  ,  FLXFLG  ,  ERROR  ,  DATCH) 

LOG I CAL* 1  CC 
DhTA  CC  /  ZOC  / 

*•«**********************************#*********■*((*************»***( 

SECTION  ABOVE  ESTABLISHES  ATTRIBUTES  OF  VARIABLES  PASSED 
BETWEEN  MAIN  PROGRAM  AND  SUBROUTINES. 

SECTION  IMMEDIATELY  BELOW  WRITES  MODEL  HEADINGS. 

**«-*  +  **n***«-****************************»************»***»**** 

FORMAT ( 1H1 ) 

FORMAT  <  '  ******************************************«*^*********  ) 

FORMAT  <  '  ***  DEPARTMENT  OF  DEFENSE  CONTRACT  FINANCING  MODEL  ***  ) 
FORMAT ( '  ***  VERSION  DATED  FEBRUARY  1,  1983  ***') 

FORMAT ( '  CAUTION — THIS  CASH  MODEL  VERSION  IS  NOT  COMPATIBLE  WITH 
FORMAT  <  THE  USER  GUIDE  DATED  AUGUST  28,1981.  PLEASE  CONSULT  THE 
FORMAT!'  USER  GUIDE  DATED  FEBRUARY  1,1983  FOR  GUIDANCE.) 

FORMAT (  /  ) 

FORMAT (  /  ) 

WRITE (6, PM T=  ( A  1 )  ' >  CC 
WR  I  T  E  ( 6 , 20 1 
WRITE (6,30) 

WRITE (6,40) 

WRITE (6,20) 

WRITE (6,70) 

WR I T  E ( 6 , 50 ) 

WR I TE (6,51) 

WRITE (6,52) 

WRITE (6,70) 

RERUN=0 

hlPRG=U 

*♦********************»«*********•*********»*■******<*******♦*** 
CALLS  SUBROUTINE  TO  READ  INPUT  FILE. 

■*****-****-i(-**************-*******##***-**#-*-nnnnnnnn(-i»-innnnt******* 

CALL  F ILE IN ( STDATE, STCOST , NMCSTL , NMTRAN , FRFRAT , TITLE , CuS TEL , 
•t'ELMENT  ,  TRNSAC  ,  ACPRG  ,  STDAY  ,  TRNCNT  ,  ERROR  ) 

IF  (ERROR. EQ. ' YES ' )  THEN 
WRITE (6, 200) 

GO  TO  2000 
END  IF 

♦  t***t*#*#»#*****»***i(*#**»»****»*****»***«*«<«#4»(HHm**»*«»» 

CALLS  SUBROUTINE  TO  EDIT  INPUT  DATA. 

♦  i #  *^*#-»-*-*-***-#-***«  ♦♦♦♦'#■#  *  «  *  *  *  ♦  *  *  *  * 

DATCHK=  NO ' 

DAT)  E  Y=0 

CALL  EDIT (TRNSAC, ELMENT, NMCSTL, SI  DATE, STCOST , FRF RAT .NMTRAN 
3  ,  COS  TEL,  ERROR,  CCOST  .ACPRG,  T01  PYD,  1  OF  RUP  ,PRGF  I  T  ,  Lb  T  DEL  ,  TuL-mtS, 

■MOT  COS) 

IF  < ERROR. EQ.  YES  )  THEN 

FORMAT (  THE  PROGRAM  WAS  STOPPED  BECAUSE  OF  AN  INF  UT  F  ILF  t  R  R  OR . 


CAS'." 

i '.« 

CAS'.' 

ZOLu 

CAS<." 

jtj  70 

CAS1.' 

."  '40 

CmBOOOSO 

CASO 

j060 

CAS'!' 

j  •  j  7  o 

CASC' 

.>030 

C  AS<!' 

ji.i  9'.' 

CAS'.' 

!>  1 00 

CAS001 1 0 

CAS'!' 

.<  1  2'!' 

CASO 

!■  1  3<!' 

CAS'!' 

!'140 

!>15'.' 

CAS'!' 

.'  1  60 

ChSO 

Z  1  70 

C  ASO 

!'  1  SO 

CAS'!’ 

!'  1  90 

CAS'.' 

CASO 

!'2  1  0 

CAS'!' 

!;220 

Ct-Mb'.' 

J  _ _ •(.> 

CAS'!' 

Z240 

L  n  :: 

-  -  ' 

Mj1.1 

C  ASO 

>2  8'!' 

CAS'!' 

,'^9u 

CAS'!' 

Z300 

LnS'.' 

!'3  l>.' 

ChS  .* 

j  Z  *_ <  Z 

CAS'  1 

i  ”*  ^|T 

lhSc 

Z  7  4  m 

CASO 

.'.jU 

CAS1.1 

Z  Z  oo 

CAS1.' 

Z  _■  /<_( 

L  A  S 1 .  ’ 

» /, 

L  nb'J 

.» Z4'.> 

CAS'!' 

!'4-!iO 

LH'b'.1 

'4  1'.' 

ChS1  ’ 

1 4  3 '  1 

LAS'.' 

•a 

ChS'  ' 

!>4  4'.i 

Lhb" 

-45'.' 

LAS'.' 

'4  6'.' 

Cnb'  ' 

•  *4  Hi.l 

LMb1.' 

-4  H.  . 

U  M  M  •' 

i  b  ■  1 1  ■ 

L  H  j1  ' 

1  ■ , 

Ln'j  ' 

L  nr  1 

■  4  . 

L  HC  1 

•  • 

f_  M  S  '  ' 

•  rj  r  •  ■ 

'  MC-’  1 

.  * ,  *■  . 

Lh1-.'  • 

3  '  ) 


WRITE (6,200 
WR  I  TE  141,70) 


*  •»  *  *  *  *  *  i 


t  *  IHHHI  *  iHMHHl  *  *( 


ROUTINE  ALLOWS  USER  TO  CHECI 
DETECTS  ERRORS. 


INPUT  DATA  WHEN  EDIT  ROUTINE 


***************** 


FORMAT!  WOULD  YOU  LILE  TO  CHECK  YOUR  INPUT  DATA"’  (YES  OR  NO)') 
WRITE (6,210) 

READ  ( 5  ,  RMT  =  (A3)')  DATCHK 

I F ( DATCHK ( 1 : 1) . NE.  V ' . AND. DATCHP ( 1 : 1) .NE. 'N' )  THEN 
GO  TO  205 
END  IF 

IF (DATCHK. EQ. ' YES  >  THEN 

FORMAT ( '  DO  YOU  WANT  TO  CHECI  :  1-COST  INPUT  DATA;  I 
:<  DhThj  OR  3-BQTH"’  ) 

WR I TE(6,70) 

WRITE (6,220) 

READ (5,FMT=*)  DAT  KEY 

IF (DAT)  EY.LT.  1 . OR. DAT  f  EY.GT.3)  THEN 
WRITE (6,70) 

GO  TO  225 
END  IF 
END  IF 

IF ( DAT) EY. GT. O)  THEN 
GO  TO  305 
ELSE 

GO  TO  2000 
END  IF 

uO  TO  2000 
tNO  IF 


CALLS  SUBROUTINE  TO  GET  USER  INPUTS  FROM  TERMINAL. 
***************  ****♦*♦*«******•»*♦*♦****»*«*♦  ****** ************ 
CALL  DATA I N ( PRGLAG , DELLAG , FLXFLG , PRGRTE , PRGFLG , 

KhLTLDY , TRNFLG , CSTFLG , RERUN , T WOFLG  ) 

******  ********************************************************* 
CALLS  SUBROUTINE  TO  CREATE  PLANNED  PROGRESS  PAYMENTS  AND 
ADD  DELIVERY  LAG  TO  DELIVERY  DATES. 


CAS0O590 

CA5006O0 

DIT  ROUTINE  CASOusDO 

L  A  6'.'06  3 

ES  OR  NO) ')  CAS00650 

CAS00660 
CAS00670 
CAS 00 6 30 
CAS00690 
CAS0070 0 
CAS007 1 0 
DELIVERY  INPUTCAS00720 
CAS00730 
CAS00740 
CAS00750 
CAS00760 
CAS00770 
CAS00780 
CAS00790 
CAS00900 
CASoOS 1 0 
CAS00820 
CAS00630 
CAS00840 
CAS00850 
CA500860 
Cn6'.".'B  7  0 
CAS00880 
***********  CAS00B90 
NAL.  CAS00900 

CA300920 

CAS00930 

***********  CA500940 

YMENTS  AND  CAS00950 

CAS00960 


**************************************************************  CAS00970 

CALL  L  REPAY  (  TRNSAC  ,  NMTRAN  ,  ACF’RG  ,  CCOST  ,  PRGLAG  ,  PRGFLG  .  5TDAY  ,  DELLAG  ,  CA500990 
•ERROR)  C  A  S 00  9 9 0 

IF  (EFROR.EQ.  "YES' )  THEN  CAS01000 

GO  TO  205  CAS01010 

END  IF  CASo 1 020 


INITIALIZES  (OR  RESETS)  VARIABLES  TO  ZERO. 

INITIALIZES  FIRST  TIME  THROUGH;  RESETS  AS  FLEX  RATE  STEPS 
DOWN  AND  WHEN  ALTERNATIVES  ARE  RUN  WITH  THE  SAME  DATA 
FILE. 


CAS00990 
CASO 1 000 
CASO 10 10 
CASO 1 020 
CASO 1 030 
CASO 1040 
CASO 1050 
CASo 1 060 
CASO 1070 
CASO 1 OSo 


■  DO  250  1=1, NMTRAN 
DO  240  J  = 1 , 10 

ou  rpuT ( i , j ) =o 
CONTINUE 
CONTINUE 
DU  2  7  i.i  1  =  1,1000 
DO  260  J  =  1 , 2 
C3TFLT ( I , J ) =0 
UFDFLT  (I  ,  J)=0 
UPD3UB <1 ,  ■  J  / =0 


CASO109W 
CASO  1  1  •".' 
CAS'.’  lit'.’ 
CAS'.'  1  1  2'.' 
Cub'.'  1  1  30 
CASO  1  1  4’.. 
LAS'.'  1  15'.' 
CASO 1 1 6u 
LMb'.'  1  1  /  O 
CAS'.'  1  1  SO 


CuN 1  I NUE  Qh£ 

CONTINUE  CmE 

DO  190  I  =1,300  CAE 

DO  180  J  =  1 4 , 17  Cm; 

T  R'NSAC ( I , J ) =0  CmE 

CONTINUE  ChE 

CONTINUE  Che 

DO  195  1=1,170  CAE 

CSTDAY ( I ) =0  CAE 

5  CONTINUE  CAE 

LFL6=U  CAE 

F'F'CNT =0  CAE 

CNT  ST  =  0  CAE 

AL  TF  RF=0  CAE 

CGSDEL=0  CAE 

F0C0ST=0  CAE 

INFL0W=0  CAE 

COUNT 3=0  CAE 

FC0ATD=O  CAE 

ALQFLG=0  CAE 

SUBCNT =0  CAE 

UF'DCNT =0  CAE 

SUMC5T  =0  CAE 

TQTCHG=0  CmE 

♦  ********•#■*•-**#•***•***•*■*■**•**•*■**•*  #*****■*•*-*  **********•*•#■■*#•**  ■»•******  CAE 
CALLS  SUBROUTINES  TO  HANDLE  EACH  TRANSACTION  TYPE.  CAE 

#•»♦*■*  +  ********#■»«**•»***#«*********♦**♦**********#*****♦***•***#  CAE 
DO  300  1=1, NMTRAN  CAE 

1 F  <  T  RN5AC -  I , 1 ) . ED . 1 >  T  HEN  CmE 

CALL.  ACTFF'Y  (TRNSAC,  I  ,  OUTPUT  ,  FLOATD  ,  C5TFLT ,  F'RFRAT  ,  hLTLD  r  ,5TC0S  TCh; 
Se,  F'F'CNT)  CAE 

END  IF  CAE 

IF  (TRNSAC  (  I  ,  1  )  .  EC!.  2)  THEN  CAE 

CALL  PRGF'AY  (TRNSAC,  I  ,  PRGRTE  ,  CSTFLT  ,  FLOATD  ,  OUTPUT  ,  TOTCHG  ,  ChE 

S'SUMCST  ,  T  OTF'YD  ,  ALT LDY  ,  F'RFRAT  ,  STCOST  ,  F'F'CNT  ,  CSTDAY  ,  TWOFLG  )  CAE 

END  IF  CAE 

IF  (TRNSAC ( I , 1 ) . EQ. 3)  THEN  CmE 

CALL  COSTST (TRNSAC , I , NMCSTL , ELMENT , FLOAT D , CSTFLT , OUTPUT ,  ChE 

?  SUBCNT  ,  UF'DCNT  ,  UF'DFLT  ,  UPDSUB  ,  PRGRTE  ,  STCOST  ,  CNTST  ,  CSTDA  Y  ,  ChE 

■TTWuFLG)  CAE 

END  IF  CAS 

IF  ( TRNSAC (1,1). EQ. 4 ;  THEN  ChE 

CALL  F'LNDEL  (TRNSAC  ,  I  ,  ALTLDY  ,  F  RFRAT  ,  ALQFLG ,  CSTFLT  ,  FLOAT  D  ,  ChE 

% TOTCHG , SUMCST , OUTPUT , PRGRTE , LSTDEL , DELLAG .STCOST, TQDA  r  S , ST DAY ,  ChE 

*ALTPRF,LFLG>  CAE 

END  IF  CAE 

IF  (TRNSAC ( I , 1 ) . EO. 5)  THEN  ChE 

CALL  ACTDEL  < TRNSAC , I , F RFRAT , AL  I LDY , ALOFLG , CS T FL T .FLOATD,  CAE 

?/T0TCH6,  SUMCST,  OUTPUT  .LSTDEL,  DELLAG,  STCOST  ,  TODAYS  ,  ST  DA  V  ,  ALT  FRF  )  CAE 

END  IF  CAE 

CONTINUE  CAE 


CALLS  SUBROUTINE  TO  CONFUTE  CONTRACTOR  I  NOES  T  MEN  1  PATIO.  Uo 
*»***'*#  +  *'»#*'**  +  *  +  **-***-****«»***»,****-*4«-***-»-»it*»*****-«*#****«'»*  ChE) 

CALL  INVEST  t  T  RNSAC  ,  NMTRAN  ,  T  UL'A  tS  ,  LST  F  LT  .FLOATD. RAT  lO.OUTF'UT  ,  DELI  AbLnS 
T  ,  S  I  COS  T  ,  F'RFRAT  )  Cm  :  ■ 

IF  <FL>FLG<  1:  1  )  .EC>.  N  )  THEN  lhS 

IF  ’RATIO.  LT.  (.c>5)  .AND.  F'RGRTE.GT.  (.9u>  >  THEN  CmE 

F  R GR  I  E  ---  F  R  GR  T  E  -  U .  0 1  CMS 

GU  10  230  cws 


END  IK 
.'JL'  IK 

♦■**■*  **♦**■•«  i 


ChLLS  SUBROUliNE  TO  PRINT  REPORTS. 

'-ml  L  P N  TQU  T  i  I  F  NF LG , CS  t  F  LG , F  RGF  LG ,  IK  NSAC  ,  EL  MEN  T  ,  FLXFLG  ,  NMTFAN  , 
NMLSTL  ,  ST  Oh  I  E  ,  LuS  I  EL  ,  F  RF  RA  f  ,  ST  COS  J  , lO I P  rD, T  CM  LuS,UUT  PUT  ,  TDK  RuF  , 
.PROP  I  T  .PRGR  TE  ,  RAT  I  0  ,  K  RGLAG  ,  DELLA6  ,  LS T DEL  ,  T  I  TLE  ,  DA TK  EY  ,  LFLG  ) 


i  *  *  *  »  *  *  *  i 


ALLOWS  USER  TO  CHANGE  TERMINAL  INPUTS  AND  RE-RUN  USING 
THE  SAME  DATA  FILE. 


>*■-*«■******-#***-**  j 


t-*-*-*-**-*#-** 


F  O'-  MA T  ( 
FORMAT ( 
F  ORMAT  ( 


WOULD  YOU  LIKE  TO  RUN  THE  MODEL  AGAIN  USING  THE  SAME  ) 
DATA  FILE  BUT  CHANGING  THE  VARIABLES  AT  THE  TERMINAL'  / 
INPUT"1  (  YES  /  NO)  ) 


WRI  IE ‘ S , FMT  =  < A  1 ) 

WR  I  T  E  v  6 , 3  1 ) 

WRI  CE ( 6 , 31 1  ) 

WRI TE (6,312) 

READ  « 5, FMT = '  <A3>  '  ) 
IF  (FLG IT (1:1). NE . 

GO  TO  320 
END  IF 

IF  (FLGIT.EO.  YES 
REF'UN—  1 

go  ro  i  >.»•;» 

END  IF 
CON  T INUE 
S  i  UP¬ 
END 


FLG I  I 

Y'  .  AND .  FLG  I  T  (  1  :  1  )  .  T^E  . 


THEN 


END  OF  MAIN  PROGRAM 


START  OF  SUBROUTINE  FI  LEIN 


■**  +  -*■»***** 


SUBROUTINE  F I LE IN  I  ST DATE , ST COST , NMCSTL , NMTRAN , FRFRAT  , T I T LE , COSTEL . 
/ELMENT  ,  TRNSAC  ,  ACF'RG  ,  S  TDAY  ,  TRNCNT  ,  ERROR  ) 

REAL  PRFRAT , ELMENT < 10,5) , TRNSAC <325,20) , ST COST 

INTEGER  A  ,  TR  NCN  T  ,  STDATE  ,  NMCSTL  ,  NMTRAN  ,  ACF'RG  ,  ST  DAY  ,  I  F'OS  ,  I  ERR 

GHARhCTER*20  COSTEL (10 , 2) 

CHARAC TER*50  TITLE 
CHhRACT  ER*80  HOLD  ,  SAVE 
CHARAC TER+3  SHOLD 
LHmR’AC  TER*3  error 
DIMENSION  Kk 1(5) 

DATA  KK 1/4, 3, 8,3,4/ 

ERROR =  NO ' 

OF  EN  <  UN  I T= 1 ,STATUS= ' OLD '  , ACCESS^  SEQUENTIAL ' ) 


READS  FIRST  LINE  OF  INPUT  FILE. 


*********  ******** 


READ  i  UN  I  T  =  1  ,  FMT  =■*  )  STDATE  ,  STC0S1  ,  NMCSTL  .  NM  I  RhN.FFK  RAT 
REhD i UN  I T  =  1 , FMT  =  * )  TITLE 
READ • UNI T= 1 ,FMT=  ( ABO) ' ) HOLD 
SA VE=HOLD 

ChLL  GETSIRhHULD,  ,  ,  SHOLD,  I  F'OS) 

IK . IPOS. LT. 2. OR. IPOS. GT . V)  GOTO  135 
STDATt  =  1NTSTV (SHOLD,  I  ERR ) 

IF  <  I  ERR.  EC1.  I  i  GOTO  135 


goto 


CmLL  GETSTR(HOLD,  ,  .SHULD, IFOS) 

I F  <  1  F'OS  .  LT  .  2 .  UR  .  1  F  ub  .  b  T  .  9  >  GO  T  □ 
o  1  LUST -REALS V  »  SHULD  ,  1  ERR  ) 
iF ■  I  ERR. EG.  1 )  GOTO  175 
r-nLL  GE l STR v HOLD ,  ,  .SHOLD, IFOS) 

IF ( IPGS. LT. 2. OR. IPGS. GT. 9)  GOTC 
NMCSTL-  I M  I  ST  V  <.  SHDL  D  ,  I  ERR  ) 

IF  i,  I  ERR.  EG.  1  >  GOTO  135 
CALL  GE TSTR  ( HOLD ,  ,  , SHOLD, IFOS) 

I F  < IPOS. LT. 2. OR.  IFOS.GT.9)  GOTC 
NMTRAN- INTSTV . SHOLD ,  I  ERR ) 

IF  (  IERR.EQ.  1 >  GOTO  135 
CALL.  GE  T  STR  ( FIOLD  ,  '  ,  '  .SHOLD,  IFOS) 
IF ( IPOS. GT. 9)  GOTO  175 


GOTO 


135 

.SHOLD, IFOS) 
1  75 


F  RFRAT -REALSV  .SHOLD,  I  ERR ) 
IF L I ERR. EQ. 1 )  GOTO  135 
GOTO  140 

W R  I  FE  (  6 , 39u>  SAVE 
ERROR-  VES 
GOTO  600 
CUNT INUE 


i-***********. 


READS  TITLE  FROM  INPUT  FILE. 

READ.  UNIT-1  ,Fl.T=  (AGO)  '  )  HOLD 
T I TuE-HOLD 
DO  120  1=1, NMCSTL 
DU  1 1 0  J  =  1,5 
ELlTENT  (  I  ,  J  )  =0 
CONTINUE 
CONTINUE 

READS  COST  ELEMENT  DATA  FROM  INFUT  FILE. 

t«^-*»-#«**»»******»**iHHt*»-  +  ***  +  *»*»****i(***##i(-*ii****** 

DO  190  1=1, NMCSTL 

READ (UNIT- 1 ,FMT-*)  COSTEL (1,1)  , COSTEL  (1,2)  .ELMENT (  I  , 
33) .ELMENT (1,4) 

READ ( UN  I T= 1 , FMT  = '  ( ASO )  '  ) HOLD 
SAVE-HOLD 

CALL  GETSTR (HOLD, ' , ' .COSTEL (1,1), IPOS) 

IF ( IPOS. LT. 2)  GOTO  185 
CALL  GETSTR (HOLD, ' ,  .SHOLD, IPOS) 

IF (IPOS. LT. 2. OR. IPOS. GT. 9)  GOTO  185 
COSTEL ( I ,2) -SHOLD 

CALL  GETSTR (HOLD, ' , ' , SHOLD , IPOS) 

IF ( IF0S.LT.2. OR. IPOS. GT. 9)  GOTO  185 
ELMENT ( I ,2) -REALSV (SHOLD, I ERR) 

IF ( IERR.EQ. 1 )  GOTO  185 
CALL  GETSTR  < HOLD ,  '  ,  '  .SHOLD, IPOS) 

IF ( IFOS. LT. 2. OR. IFOS. GT. 9)  GOTO  185 
ELMENT (1,3) -REALSV ( SHOLD , I ERR ) 

IF ( I ERR. EO. 1 )  GOTO  185 
CALL  GETSTR (HOLD,  , ' , SHOLD , I F OS > 

IF ( IFOS. GT. 9)  GOTO  185 
ELMENT  <  I  , 4) -REALSV (SHOLD, 1  ERR ) 

IF ( I ERR. EO. 1 )  GOTO  185 

IF  ( COSTEL ( I ,2) .EO. ' INCUR ' )  THEN 
ELMENT ( I , 1 ) =1 
END  IF 

IF  .COSTEL ( I  ,2)  .EO.  ’ PA  I  DC  )  THEN 


CAS 

CAS' 

********  CAS 

Cub 

-********  CAb 

CAS 

! )  .ELMENT ( I ,CAS 
CAS 
CAS 
CAS 
CAS 
CAS 
CAS 
CAS 
CAS 
CAS 
CAS 
CAS 
CAS 
CAS 


t  LMENT  (1,1)  =2 
END  IF 

IF (COS TEL ( I ,2) .ED.  SUBCT ' )  THEN 
ELMENT ( I , 1 i =3 
END  IF 
00  TO  190 

ldj  NP> I TE  < 6 , 390 )  SAVE 
ERROR= 1  YES 
19w  CONTINUE 

*****  NEXT  LINE  ESTABLISHES  RELATIVE  REFERENCE  FOINT  FOR  CONTRACT 
START  DATE.  ALL  TRANShLTIONS  WILL  USE  THIS  FOINT 
TO  DETERMINE  DATS  AFTER  CONTRACT  AWARD. 

STBAY=  FDAY(STDhTE) 

i  f.  i  <  r )  =  nmcstl  +  2 

TRNCNT  =  NM  T  RAN* 2 
DO  270  1=1, TRNCNT 
DO  260  J  =  1  , 20 
TRNSAC ( I , J ) =0 
LoO  CONTINUE 
270  CONTINUE 

*♦*************************♦*********♦*♦**■******************< 

READS  TRANSACTION  DATA  FROM  INFUT  FILE. 


I F  0  sj  ) 


DO  330  1=1, NMTRAN+ 1 

READ (UNI T=1 ,FMT=  (ABO) ' , END=500 ) HOLD 
SAVE=HQLD 

CALL  GET  STR (HOLD ,  '  ,  '  ,SHOLD,IPOS) 

IF  (  IFG5.NE. 2)  GOTO  290 
m=  I  N  T  5  T  V  (  SHOL D  ,  I  ER R  ) 

IF ( I ERR. EQ. 1 >  GOTO  290 
IF <.  A .  L  T  . 1.0R.A.GT.5)  GOTO  290 
TRNSAC < I , I )  =  A 
DO  I. SO  J  =  2  ,  FT  1  A ) 

CALL  GETSTR  i.  HOLD  ,  ,  ,  SH0LD,IF05) 

IF  <  IFOS.EO.  0.  AND.  <  J.NE.M-,1  <A>  >  )  GOTO  290 
IF(IF'0S.GT.7.QR.  (IF0S.LT.2.AND.J.NE.M  1(A))) 
TRNSAC ( I , J ) =REALSV iSHOLD, I ERR  > 

IF  (  I  ERR. EQ. 1 )  GOTO  290 
IF (J. EQ . 2 )  THEN 

)  = I N  T (TRNSAC (1,2)  ) 

TRNSAC (I, 13)  =  O  DAY <F > -ST DAr ) 

END  IF 
GOTO  280 

WRI TE (6 , 390) SAVE 
ERROR-  YES 
GOTO  330 

FORMAT ( '  ERROR  IN  FOLLOWING  INPUT  LINE',/, ABO) 
CONTINUE 
CGNT I  NOE 


GOTO  290 


ERROR  IN  FOLLOWING  INPUT  LINE',/, ABO) 


CHECP  S 
STwTED 


IF  F'RUGRAM  FEhD  THE  N'JFIBER  OF 
FIRST  LINE  OF  THE  INPUT  FILE. 


TRANSACT IONS 


****«************■***«****' 


1 1-  '  1  .  LE  .  Nil  T  KmN  >  THEN 
WR  I  1  E  (  ±> ,  40<„> )  NM  T  RAN  ,  I  -  1 
ERF.mk=  tES 
END  IF 

■  ,h|'Ih  I  i  THE  DATA  FILE  INDIChTED  TRANSACT  I  ON  5  WERE  I NC  L  L 

IN  THE  FILE.  ONLY  ,13,/,  1 F ANSAC 1  I UNS  hRE  mCTUmCLY  INCLUDED. 
LEhSE  CHEC)  INFUT  FILE.  > 


C  AS1.’^ 
CASCO 
CASO  3 
CASO  ~ 
las'/: 
caso: 

CAS'.O 

caso: 
c  AS/* : 

CASCO 

caso: 

CASCO 

CASCO 

CAS'.O 

CASCO 

CASCO 

CASCO 

CAS'.O 

ChS'.O 

CASCO 

CAS'.O 

CAS'.O 

caso: 

caso: 

CASCO 

CASCO 

CAS'.O 

caso: 

CAS1.' ; 

CAS'.* . 

caso: 

CASCO 

CASCO 

CASCO 

CASCO 

CAS'.O 

CASCO 

caso: 

CASCO 
CASCO 
CAb''0 
CAS'.O 
CASCO 
CASCO 
CASCO 
C  ASCO 
CASCO 
CASCO 
ChS'.O 
i  CAS'.O 
CASCO 
CAS'  > 
LAS'  .■ 

Ch3'.' 

CASn 
Ch5u 
CAS.". 
JDF  In  , H S ■  I 
PLAE" 

cas/'  : 


END  UF-  SUBRuU  f  INE  FI  LEIN 


***»«i»t**t 


lLl-E  • UNI T  =  1  ; 

hE  I  URN 

END 

********** 


**********  S  T  ART  OF  SUBROUTINE  EDIT  ********** 

******  EACH  EDIT  CHEC1  IS  UNDERLINED  WITH  *'S.  ****** 

SUBROUT  INE  EDIT ( TF NSmC , ELMENT  , NMLST L , STD ATE , S TCG5 T  , F RFRAT , NM T RAN , 
:  COS  V EL  ,  ERROR  ,  CC03T  ,  ACF'RG  ,  TOT F‘  y  D  ,  TOP  ROF  ,  F  ROF  I T  ,  LS  TDEL  ,  TODA  YS  , 
f  Tu  1  US  i 

REAL  1  F  NtoAC  >  7-5  ,  -U ;  ,  ELMENT  (  1  •_> ,  O )  ,  F'RFR AT  ,  CLOS T  ,  TuF'ROF  ,  F  ROF I 
•v  T  ,  T  01  LOS  , TUTP  YD, ol  LOS  l  ,  TODAYS 
INI  EGER  NMC3  TL  ,  STDATE  ,  N  NT  RAN  ,  LSTDEL  ,  DARMO  ■'  1  2) 

C  m-<i~  » iC 1  E  R*-D  COS  TEL  (  1  >.> ,  -  > 
l-FimF  ml  T  ER  *  7  EFROR 
IfYl  EOER  CALF  F  b  ,  hLF  RG 
FEhL  CuSTFD.F ,RL , TH 

DAT  A  Dhy  Mu/  71  ,--,71 , 7*.'  ,71,  70  ,71,71  ,  3>.«  ,71, 7u  ,71/ 

EERO’'-  NO 
f  0  T  F  l D-o 
CCOST-o 

L  ml F  Rb->.' 

T  0  T  C  U  S  -  S  T  >7  L  S  T 
I  •  SM  LUST  .  L  1  .  '  I  HEN 

F  Ob  MhI  ^  I  y 1 7.  ^  ’  MhT-JF  L’J'o  1  Lt-tf  •iTjU  1  t:E  m  i  4  fc.  O  h  T  I  "v  E  Nui’lt-E.K.  /  } 

WR  I  TE  >  o  ,  1  >.' ; 

E  F  F  OR =  YES 
WR  I  TE  '  a  ,  4'.'i  !  ■ 

END  IF 

IF  '  iMLSTL.  ijT  .  10.0R.NMCSTL.Lr.  1;  THEN 

♦  ♦♦♦  •  •♦****♦*****♦♦♦*♦♦♦******♦*******♦-***♦♦******♦♦ 

format*  the  number  of  cost  elements  must  be  between  i  and  10 
•  .  ) 

WR  i  i  E  *  <3 , 2>_>  ‘ 

EF  R  jF  =  rEs 
WR  I  l‘E  1  to  ,  4>. ii >  ; 

END  IF 

IF  >  F  R  F  R  A  T .  L  T  •  •  OR  •  F  RF  R’A  T  •  GT  •  1  )  THEN 

•  • • »  « • *  *  *  *  ******  **♦*  ****♦*♦♦♦*♦*♦♦**♦*♦*  «  *********** 

F'jK  Mi*  T  (  THE  FRuFIT  RATE  MUST  BE  BETWEEN  >_;  hND  1.  /  ) 

nf  i  te  - 1,  > 

LF  F  OR  —  y  ES 
wF  I  i  L  <  6 , 4 ; 

END  IF 

DO  A-.'O  1  =  1,  NMT  RAN 

I  i  RF  C  =■  I  NT  1  T  R  NSAC  >1,0;  )  /  1 OOOO 
I  SF'L  T  y  -  1  v  R  F  C  *  1  i.j'.'oO 
I  -  F  l  T 11=  1  N  T  >  TRNSAC  >1,2))  -  I  SF  L  f  y 

I  L  =  1  SF  LT(1/  1  00 
,  _F  L  T  D  =  I  MOF'C  *  l>'-0 
I  I  i-F  o  =  I  5F  L  T  M  -  1SPLTD 
IF  ,  IMuFC.LT.  1,QR.  I  MOF'L.  oT.  12;  I  HEN 
»»**••**♦♦♦******»•♦♦***«»********»••****»*«*»****** 

F  ijKMm  T  >  THE  1  RhUSml  I  ION  Dm  l  E  ,)  *.M,  HhS  mN  IL  l.LmmL  MuN  T  H  , 
i  '  .  .  i 

><jR  I  TE  «  t> ,  72  ;  TRNSAC  >1,2;,  I  MuP'L 


CAS'/  7  a  a 
ChSO 7t 7 
CAS'.1 768 
LAS'. <769 
C  Abo  7  7v 
ChS'.i  3  71 
CASo372 
L  A  S  >  j  3  /  7 
CAS0774 
LASo77S 
C A So 7 7 to 
CASo'77  7 
CmS'/  7  "?a 
CAS'.1 7  79 
Lho _■  zix.  • 

C AS036  1 
C  A  5'/  762 
C  AS>.;7S7 
CAS1/  784 


CAS0788 
LhS'.i  7S9 
CA5u790 
CmS'.1  7-  1 
C hb j 792 


CAS'/  79to 
CA50797 
CAS>7  7  -6 
LAS>.'7'-'m 
CAS040>:i 
CAS040  1 
CAS0402 
ChS>.'4o  . 
CAS04>.>4 
CAS04'.’D 
CAS04o6 

CAS1  '4  OS 


Li*to  •  '4  1 
L»B  '4  1 

Lhv  '4  . 


*■**•* 


L  P  ^'L'h  ~  t  E  3 
tSiA  I  i  E  *  o  ,  400  i 
I  U  3o 
HUE  i  F 

I  r  '  i  L'mP-  3  .  G  T  .  DhF  Mu  i  I  MOF  C  1  I  HEN 

■  ♦  ♦  *  *■  ♦♦♦♦***t*  *  ♦  «  *~*********  ********-**i 


Mm  (  <. 


T  rib  •  f ■  hN  2mL  ]  I  ON  L’n  1  E  ,  r  o .  , 


LmE'.'AISm 

I.  H  ^1  1  *4  **_> 

L-Vr/.  4 _  1  v 

C  HS'.'4  020 
LHb'.'4*. 

******  CHE  -.'4_  4'.» 

mN  1  LLL'jhL  L'Hy  ,13,  LhE.'4^  jij 
.  ’  CmSv4260 

UP  1  7  E  C  <b  ,  3  4  )  T RNSAC  <  I  ,  3  )  ,  I  DAF'C 
EPRGP:  =  '  t £3 
UP  I  T  E  <.  6 , 400 ) 

E;4D  IF 

*««tlt***tt*4*^**«**t**««*t**t*ti«t***tt4f«*««««*f**t***«#****# 

CHEC*  3  COST  STATEMENT  DATA. 

-a**-*-***-*-*****-*-*-**-*-*-*-*-*  *■*•**■*-*•***♦♦-*  *•*-**-*♦*■*•*-*-**-*-*-**♦*■*♦***-*.#■#-*.* 

IF  <  TRNShC (1,1). EQ . 3  >  THEN 
DO  700  J ~ I , NMCSTL 

IF  i  ■  \N  jHL  (  I  ,  J  +  2;  -  b  T  .  v  7  94  99 .  uF  .  TR  NS nC  1  1  ,  J  •*•  2  /  .  LT.  —999999)  T  HE  C  A  b :4  J  3 
\  N  Lhd'.'47 

a--*******-**-*'*-**-*-*-**-*--*-*--*-**-***--*--*-*-*'*-***--*--*--*-*-*-*-*--#-*-  *•*■*■***♦■*  CHE  '.’4  73'. 

FORMAT  ^  '  CuBT  AND  DEuIVERy'  T  F  mT  -i  '•:■  *-■««_  T  luNb  f*!Ub  T  NOT  HAVE  ,  /  Lh5'.'4  J9'. 

v  b  ml  'JE3  LARGER  THmN  SIX  DILI  *3.  THE  COST  STATEMENT  DATED  ,  F  8 .  U ,  CAS044 
T  /  mmo  A  v'HLUE  THAT  IS  1 00  LmRltE.  ) 

UR  I  TE  1  6 , 40 )  TRNbAL  <  I  ,  —  ) 

E  R  P  U E = '  i E3 ' 

WR  I  TE  v  6 , 4«j0  ) 

END  IF 

►  *  Ob.-*  T  LINE  SUMS  LOST  DhTA  TO  DE  V EP  M  I NE  TuThL  COST. 


Cm5«.-4270 
CAS042SU 
C  AS '.-'41  90 
CAE '74  7  jO 
CHS*. -4  3- 1  0 
L  A  3  '.'4  7*1 
L hS04  7  7  ■ 
C  AS04  :  41.1 
C  A  S ' . 1 4  ’  B 1 . 1 


T  !_•  T  o  U  S  =■  T  CT  L  OS  T  r-T  J': 


LmSC  44  1 
CmS','4  4 
L  Mb  '. '44  7  1 
CAS*.  44 4 
lhS044  SO 
C  A E *.'4  4  r  * 
L  >■  4  S  4  "  ■  • 
L  m  S  ■ .  4  4  3 '  • 
C  H  b  * . '  4  4  -r  » 
C  m£'.'4  C" 

4  V.  i  'J 


’•  3 


IF  •  TRNShC  1  I  ,  J  *♦"  _  .  L  I  .  ’ .  m  i  i  D  .  b.  l  M  L f  j  T  •  J  ,  1  »  .  N  E  .  7;  THEN 
•  *  ♦♦*****♦♦*♦*♦*■*♦*■•**♦**♦♦*♦********♦♦*♦*♦♦*■*****  +  ■* 

I'UKMhT  <  Nbbh  T  I  vE  COST  IS  FERMI  T  TED  GNl  f  FOR  bUBLONTPALUF 
,  ,  r  t  F  L  F' h  u b R E S 3  F  m  t  MEN  7b  ■  T  Ht:  mr  i  3  7  m  :  ENEN  T  Dm  !  ED  •  f-  b' .  '•.>  ,  Hhl 

,  A  NEGhTIVE  VALUE  HtlD  1 3  NijT  A  S'J&COf  4  !  F  AC  r  Gt-v  LuST  ElEMENT.  >  Cm  3’. •*♦‘007' 
WF.  i  T  E  *  6  ,  OCU  TRNSmL  '1,2)  CAb'.’4S7-u 

ERF0R='tES  CmEi.,4S4‘7 

Ui  R  1  T  E  ‘  6 , 4 00  )  L  m  b  1 4  7-  i7«  . 1 

END  IF  CASm4Lsv 

•  NEXT  LINE  SUMS  COST  DATA  BY  COST  ElEMEN'T  .  CAS04B70 

ELMENT  (  J  ,5)  =ELMENT  (J  ,  5;  +T  F'NShC  v  i  ,  J  +  2  •  ChS-A^Su 

"j  CONTINUE  lhi-AH'.1 

END  IF  L-S'.'4b>J'.' 

♦  ■•■***>-»»--^^*+'*-!*--^-*-#-*  +  -i»'*****-M-fr«-*+-*-^-»ni-*-*-*-#-*-#-#'-fr*-**-****-*-*-»**-**-fc******  CAS1-1 4t  1  0 

CHECKS  ACTUAL  F’RObREbS  FhyMENT  DhTA*  Lh^:  '4b  —  ‘.J 

■*-*-*-*****-^*'-*-»*-%*-*4-M-^-*-*--*-*'»»--**-***-*^^-*-^-*>**-*^********»*'»-t»-#--»****^**-*  CAS*.»4t.  ZO 

IF  k  T RNS AC  <  1,1)  .  EQ .  1)  THEN  CAS1. 1 4 e? 4 1.* 

ACF  RG=  I  CAb'AtIT. 

IF  f.  TRN5AC  (1,3)  .  LT  .  0  >  THEN  ChSC'4os0 

■  F  ORMh  T  (  AN  ACTUAL  PROOF  ESb  FmyMEITT  Ml>ST  Hh  vE  A  VALUE  ,  /  ,  CAb’.'Loo'-1 

•V  GREATER  T  HhN  Cl  THE  PROGRESS  PAYMENT  DhTED  ,FB.  •>,  IS  LESS  1  HAN  CAb<  '4.-.- 


v*JR  1  l  L  t. ,  £t*.1 )  T  RNsAC  (  I  ,  O  ) 

ERROR  -  YES 
wP  I  T  E  1 ) 
t  NO  I  F 

IF  U  hN'-  mi7  <1,4-  .  »_T  .  *.i,  UR.  .  T  PUSmC  <1,4-.  i_*  T  .  1 


THE  N 


T  l  ^  fc*  1  *-*  T  i  A  Ebb  T  +A  '  Mtv  J  1  }■  t-*  I  t_  Mi.i  -  1  EC  j-  F  i*,f  L  N  F-  Af-Jl.'  1  . 

1  HE.  i  PhNSmLT  ION  Dm  I  EL-  ,  T  7  .  -  .  vl,,  hT.,  NO  a  PULE.  1 


LH3‘  ‘4  .< 

LHbV'4  ‘  1  ! 
C AS:  4  O 

CM3*  “ 

■  n  '  4  'a 


L  M  *  *4 


■4 


h  f’  h  '.  r  -  t  Ed 

l-J  P  1  1  E  >  t  ,  *i  '  .  " 
h.-iL’1  I  P 


[  r  >  !  P  N  i-i  i _  i  i  .  1  i  .  r 


P  up  Mh  f  (  DD  NOT  I  NE  L  1  hN  r  PLANNED  P'fi'UGP'ESS  FA.MENTS  INTO  THE  ,! 
,  l'h  i  h  P  I  uL  .  f  HE  1  Pul j dml T  1  ON  Lh  i  ED  ,  F  b.  '  MUST  fc-E  PEMu'vED.  >  1 
WE  I T E  ■ o ,  TO  >  TKNSmL (1,0) 

E  R  R  0  R  =  E  E  < 

WP  I  T  E  >  to  ,  / 

END  IE  i 

IK  >2.07.1.  hND.  TRNsmC  (  I  , 1  .  LT. TRNSAl  ‘  1-1  ,  ^  )  THEN 


FORMAT  <  THE  DATA  15  NOT  IN  LHFGNGLuG I  ChL  ORDER.  CHECT  TRhN: 
;  (  T  1  '_;NS  ,  /  ,  Dt-'  TED  ,  F  y  .  ,  mND  ,  F  &  .  ,  10  LGnM  toC  T  ,  / 

wP  I  I E  i  to  ,  SO  T:,,ohL  i  1  ,  J)  ,  1  "NdhL  ■  I  -  1,-) 

E  F.  K  u  P  —  i  E  S 
WP I TE  >  to ,  400  ) 

END  IF 

IF  i  T  KNShC  >  I  ,  1  /  .  ED .  4  .  OR .  I>N  =  AC  >1,1).  Eo.  '20  T  hEN 

ME  a  T  LINE  SUMS  DEL  I  LEE  r  FRILLS  lu  L'ETEKNINE  TOIhL  FFIlE. 

TO  TF  t  D  -  T'jTF  r  D-<-7  E: I -4  SuC  '  I  .  3  > 

IF  i  T  F  NS  mi  (  I  .  Z  )  .  G  i  .  F  9  -  4  4  f  .  OP  ■  1 RN  Sul  > I  , C )  . lE . O )  THEN 


**».*,***»»#^**f*' 


F  _  ,-V-*  T  ■  A  DE  l  I  ■■  E  -  »  FA.MENI  Ml'ST  HA1.  E  A  '.ALUL  Lh’-jEF  7  HAN  , 
1  EO  T  NO  f  LON  I  A  I  N  Fiuh  E  T nmN  to  L1 1  o  I  T  to  .  THE  5  F  m(  4to~*C  7  I  ON  DA  i  E  L1  . 

,  ^  ;  i  ijLm  '  E  to  2  r:  I P'Jl.  to  .  1 

Wr  i  I  E  >  to  ,  Pto  ’  i  KfMtoHL  I  ,  -  > 

L P P  OP  -■  .Eto 
HP  I TE  >  to , 400 i 
tND  IF 

i  K  >  TRNSAC  (1,1'.  EC1.  2  /  THEN 

IF  (  T F N5AC  <  I  ,  4  )  .  LT  .  O .  OP  .  7  R'NShl  1  I  ,  4  ,>  .  GT  .  1  >  THEN 


-  *  **•*•*  ♦ 


FOP  MAT  t  THE  LK'UiDni  ION  PA’E  ASSulIi-i'ED  WITH  HN  AlTUAL  , 
p,  DEL  I  v'ER  t  MUST  BE  BETwEEN  >.<  AND  1.  THE  TRANSACTION  DATED  ,  F  3 . 0 

p  violates  this  pule.  ) 

WP  I  TE  (  to  ,  i >  7  P'No.-'C  '  I  ,  2  > 

t  P  P  U  P  =  .Eto 
UJP  I  7E  (6 , 400  ) 

END  IF 
END  IF 
END  IF 

I  F  (  TRNSAC  >  I  ,  1  )  .  LT  .  1  .  OR: .  TRNSAC  <  I  ,  1  )  .  G  T  .  5  >  THEN 


•*.«**»*-»-»«*'***-****4 


>-***  +  ■»**■****■*■*♦-* 


FORMAT (  THE  TRANSACTION  DATED  ,FS.O,  HAS  AN  ILLEGAL  .  /  , 

TRANSACTION  CODE.  THE  CODE  MUST  EE  A  1  ,  2,  3,  4,  OF.  D.  i 
WP  I  TE  1  to  ,  1  i  F.i  >  TP'NtoAC  >1,2) 

EL F  A. '  IF.  =  .ES 
WP  i  f  E  >  to  ,  4 >_>>.» ) 

END  IF 

u S  iF'D=TOTP  tD  /  '  1  *  F  R F  P  A T  )  -  1 

T H- T uT COS*  1  .  ‘.'005 
IF  >.  CUto  IF  D.  GT  .  TH;  THEN 

FuKMAT  (  COST  PE  I ITBURSEMENT  CmNNOT  BE  to  -.ATEN  T  HhN  INC  UP  RED 
.  ,  LUST,  r  HL  TRfVJtoACTIUN  DA  I  ED  ,P3.0,  •  iulhTES  IHIS  PULE. 

K  lRIIh  1  (  THE  DELIVER/  PArMENfS  TO  L'h  TP.  EXCEED  THE  LOS  f  lu  Dm  i  E . 


d-mat  ■.  i  u  i  Hi.  cujI  a  r  i  hi  s  fl'Inn  t  r-jn  cost  s  i  eme  n : 

ur:iH  i  I  I  O  I  hL  DEL  I  C  EF  Its  H  I  r  H  1  f  J  i  N  T  ,  f  C,_  ,  F  &  .  > 

U'i'  "'w  1  i  LudI  F  E  I  Mb'Cir-  jL  D  hi  Ini  j  I-  l.  I  N  T  bf-r.t.D  ON  DF 1_  I  . 

.*<r  I  t  t  1  *?  .  t  .  0  I  if-  C'ML  1  I  ,  .  > 

r-  I  1  t  1  -r  ,  i  .  l_j  ■ 

i  i  t  ■  t3 ,  i  Jo )  ro  r <_os 
.vF-  i  r  e  « 4?  ,  1  j  <  T  0!  F  T  D 
wh I TE is ,  1 .b i  LUa  IF  D 
E F F ijF  -  iEa 

■•‘ih  I  T  E  '  o  ,  4«.''  •  1 
,ND  IF 
4  i  i  '  jCjE 

a- «.*«.•  I  - 1  ,  nmcs  r  l. 

.  i~  iiui  rtt_  <1,2/.  Nt  .  INCUR  .  hND  . Cu 5 1 1 L  <  I  .  2  >  .  ME .  FhI  L'C 
_  .  ;  i E  .  E-. U L  C  1  '  1  mEN 


'LF  r  F  F 


1 1  j  5  T  E  l.  C  i  - 


F  Or- MAT  i  T  HE  COE  '■  El E MEN!  N-_ 
-l  i  D  COST  ti.Mtli  f  LODE. 
wK  :  T  t  '  6  ,  1  •  I 

r_'  UR-  ,  Eo 
wF  i  i  E  ■  o  ,  4.  ■ 

,  J  IF 


17,  L"_'E E  Nc 


>t  l»  5  F  -  I  U  CUE  I  mCl. 


FmL  i  OF  F  H  Ebb  F  n  t  MEN  f  C Ub T 


F ;  j  F  M  m  T  >,  "  h 

.  _  uN T  I  Nb  F  EF  I  _'l 


S  -  l  .  h  T  Dhi5 
E-<  < ' j L b  Ft  r.t 

,  I  : ,  .  » 


IN  T H E  F  F E o E N 1  '  ,  /'  . 

o  NOT  [  mE  uhoL  F  C'F  , 


■  <*♦*»*♦»**••*♦**»*♦»**  *♦  *  *♦■*■*■  i 


COST  ELEMENT  .1.',  .  < 

WF;  I  T  E  1  t> ,  1  4  ;  I 

ERROR  =  '  ?  E  o 
WF  1  T  E  <  c.  ,  4 1  'c  ; 

END  IF 

IF  < ELMENT < I , j) . GT . 28)  THEN 

»***t*^**»**»**4**tt*#*****»**#+t»4**»**»«*«*l** 

FOFMmT  <  THE  F  L  uh  1  L'h  i  b  F  uF  UNPAID  CuSTb  ChNI-jL1  I  EXCEED  ,  c  , 
.a  DhtS.  THIS  13  NOT  THE  ChSE  EOF  COS  T  ELEMENT  ',13,  .  > 

WF'  I  T  E  <  6 , 1  T  j  j  I 
EREuR= YES 
WRITE'S, 4'.".' ) 

END  IF 

IF  < ELMENT • I , 3> . LT. 0. OR. ELMENT i I , 7 > . GT. 1 )  THEN 

FORMAT  (  THE  F'ERCENT  FA  I D  IN  THE  PRESENT  ACCOUNTING  PERIOD 
'  .  SHOULD  EE  BETWEEN  O  AND  1  EOF  COST  ELEMENT  .13.  .  ■ 

WRITE (6, 100;  I 
E  h  R  UF  —  r  E  o 
WF  1  T  E  '  t, ,  4c>0 ) 

END  IF 

;  F  '  ELMENT  ■:  I  ,  1  )  .  ED.  3.  AND.  E  l  ME M T  <1,0;.  ME.  CO  THEN 


'*»»»»*»**»»»»«-»*»■***• 


»*»♦♦»«»»**********♦**« 


PuRMuT  (  THE  EUBCGN f Rhl T OF  F  FU'jFtES  PAYMENTS  SHCHJLD  ADD'  . 
■j  M-'.EUrjS  i  HE  l  I F  E  OF  T  FIE  L  UN) PAL  I  FOR  CUE  I  ELEMENT  ,  I  _* , 

WR  I  !  E  '  t- ,  1  4j‘.<  ;  I 
ERROR  -  <Eb 


WF  I  T  E  t  £>  ,  4  mm  ) 
h  IMG  IF 
END  IF 
'-’ji'J'  INuE 

L  U  w  Gm  2  —  1  ,  t-  !•-.  F  KG 

if'  i  TRNSAC  <  I  ,  1  )  .  ED.  I  >  THEN 

LhlF  KG  =  UhLF’Klj+  1 

END  IF 

I  F  < TRNSAC ( I , 1 )  . ED . 3 )  T  HEN 
CC0ST=CC0ST+1 
END  IF 
CON  T I NUE 

CCObT  =  CCObT  —  CACFFG 
I uFROF  =  T  GTF YD-TQTCOS 
RRuFlT=TOTPYD  /  TOTCOS-1 
TuDh t 5= INT ( TRNSAC (NMTRAN, 1 3) ) 
i_6IDEL=INT  (  7  RNSAC  '  NM7  RAN  ,  2  >  ) 
IF  (  [RNSAC  (  1  ,  1  >  .NE.  Zi  THEN 


FORMAT ( '  THE  FIRST  TRANSACTION  MUST  BE 
WRI TE (6, 170) 

ERROR-' rES 
NR  1  T  E  <  6  , 40U ) 

END  IF 

IF  ( TRNSAC (NMTRAN, 1 ) . NE. 4. AND. TRNSAC (NMTRAN. 1 ) 


COST  REPORT. 


FORMAT  i  '  THE  LAST  TRANSACTION  MUt>T  BE  A  DELIVERY  .  )  , 

NR  I  rE  (o,  IS O;  :• 

ERROR—  r  E S 

.-.R  I  i  E  1 S  ,  40>j  i  ■- 1-  = 

END  IF  CAB- 

IF  iCCOST.LT.O)  THEN  CAB 

FORMAT  v  I  HE  DATA  FILE  L'jMTulNt  MuRE  AlTUmL  FF'OgF.LES  PAYMENTS  ,  /  Lhj1 
*  ,  I  Ht-iN  COST  SI  AILMENTS.  THE  NUMBER  OF  ACTUmL  FRuGRESS  FhtMENTS’  Cuts' 
?.■ ,  SHOULD  EQUAL  THE  NUMBER:  OF  COST  STATEMENTS  BEFORE  THE  LAST  ACTIJCAS- 
'.Al.  FR  OGRESS  PAYMENT.  '  )  C1-1S1 

WF  I  1  E  (  fj ,  1  P'.'  /  LhSi 

EFF'OF-  YES  CAS' 

WRITE  is, 400)  ChB1 

END  IF  CAS 

F-FFFFkiI+'j.'.".".'S  L  Mb 

FL-t  Ft-  pm T  — O .  CAS 

IF  iF POF I T . GT . P. OR. PROFIT. LT. EL)  THEN  ChS 

FORMAT  <  '  THE  PROFIT  RATE  COMPUTED  FROM  THE  DATA  FILE  <  ,F5.2,  ')  ChS 

>.  DOES  NOT  MATCH  THE  PROFIT',/,  RATE  (  ’  ,F5.2,  '  )  IN  THE  FIRST  LINE  UCAS 
TF  THE  DATA  FILE.')  CAS 

FORMhM'  ,T6,  COMPUTED  PROFIT  BASED  ON  THE  FOLLOWING  VALUES  COMFUChS 
T TED  FROM  DATA  INPUTS:  )  CAS 

FORMAT  (  ,  Til, TOTAL  PRICE  FROM  DELIVERY  PRICES  , T 43 ,110, /.Til,  CAS 

>  TOFhL  COST  FROM  COST  STATEMENTS  , T 48 , I  1 o , / , T 1 1 ,  PROFIT  DOLLARS  ,  Lut 
>..148,110;  Cm  Si 

WF1 1  1  L  ( £> ,  — ,.".1 )  F  F  OR  I  T  *  1  mo  ,  F  FT  R'AT  *  1 MU  Lt-iB* 


WF'  I  I  L  ( t) ,  — )  F  R( 
WR.  I  T  E  >  a  ,  2  1  ) 

WF I  IE (6 , 22m)  IN 
ERF OR =  YES 
WRI IE (6,400) 

END  IF 

♦  ■»*■•■••*■***•*■*##**•*■ 


INT  i TO TF YD),  INT  '  fU I  COS)  ,  INT (TOFF OF) 


SUMS  COST  STATEMENT  DATA  WHEN  ERRORS  m-L  DLlH 


r 


EE'  1  T  jUbKQUT  I  ME.  . 

»»**»-»»-»»*******»»*»'»»**»«*»**»»»******»*«**'»***«»***i(*****»#* 

if  '  t.  f  EUR  .  E'J .  ’  t  LS  )  7  HEN 

DO  :•>.>•.•  I=1,NMTRAN 

1  f  1  1  KNSmL  (1,1). ED. 3)  7  HEN 

do  :•  l >:■  j  =  l ,  nmoSTe 

TRNSmC  (1,14  /  =  T P  NSAC  (  I  ,  14  ■  +1  RNSAL  i  I  ,  J+2) 

L  ■.’*  CONTINUE 

END  IF 
CONTINUE 
END  IF 

4i  n.»  e  ormm  r  <  /  / 

RE  T  URN 
END 

***  +  *■*■*■♦**  END  UF  SUBROUTINE  EDIT  **•# ♦■#■**•*♦  *■ 


Ch^ 

c  (-  ; 

Ch-; 
Cm  S' 

LH3 

CmS 

CAS 

CmS 

CAS 

CAS 

CAS 

CAS 

CAS 

CAS 

CAS 

CAS' 


'toto'.”.’ 
'toto  1 *.' 
'66-0 

'co40 

'totob'.' 

>6670 

'O  3)80 

1  to  to  R  0 

>6700 
'to7  1  Ci 
'6  7  CO 
j  to  7  3  C> 
16740 
'6  750 


270 


START  OF  SUBROUT INE  DAT  A  IN 


•»■*•*♦*•*■»-•*** 


30 

FORMAT ( 

31 

FORMAT ( 

F.SRMmT  ' 

FCRNhT ( 

to  1 

FORMAT ( 

to  2 

F ORMhT ( 

YO 

FORMAT ( 

2  1 

F  0  R  M  A  7  ( 

i  30 

FORMAT ( 

1  3  1 

FORMAT < 

i  r  - 

FORMAT ( 

1  3  3 

F  ORMhT ( 

1  70 

FORMAT ( 

1  r  ! 

FORMAT ( 

1  J 

F  OF  Mu 1  i 

1  Vi 

F  OPI'lH  I  ( 

i 

FORMAT ( 

FORMAT ( 

7  7' J 

format ( 

USER  AT 
BE  MADE 


IS 


THE  ) 
USING  / 

(TIME  ) 
REC-  ) 

(TIME' ) 


Choi 

CASi 

CAS< 

CAto* 

CAS1 

CAS' 

CAS' 

C  Mto1 

CAS' 

UMto1 


SUEROUT  I  NE  DATA  I  N  >.  FRGLAG  ,  DELLAG  ,  FLXFLG  ,  F  R&RTE  ,  F  RbF  L'S  , 

’>ALTLD  i  ,  TF.NFLG  ,  C5TFLG  ,  RERUN  ,  T  WGFLG  ) 

INTEGER  FRGLAG,  DELLAG,  F'RGFLG  ,  ALTLDY  ,  T  WGFLG 
CHAR  AC TER *3  TRNFob , C 3  TFLG , FLXFLG 
REAL  F'RGRTE 

THE  FOLLOWING  DATA  IS  REQUESTED  OF  THE 
T  &RMINAL  SO  D I F F E R ENT  CAL C U L h  T 1  ON S  CAN 
THE  SAKE  DATA  FILE  / 

UJHmT  I  to  ;  Hto  F  FuGR  ESS  Fm  y  M  ENT  Lnb  T  1  ME  IN  DA 
FROM  WHEN  STATEMENT  IS  ISSUED  UNTIL  RAVMENT 

El  LED-’)  ) 

WHAT  IS  THE  DELIVERY  PAYMENT  LAG  TIME  IN  DAYS 
FROM  WHEN  DELIVERY  lb  MADE  UNTIL  PAYMENT  IS  RECEIVED.)  > 
WOULD  YOU  LI) E  TO  SPECIFY  A  CERTAIN  PROGRESS  PAYMENT) 

RATE  FOR  THESE  CALCULATIONS"'  A  NO  ANSWER  IMPLIES  YOU  ) 

WANT  THE  COMFUTER  TO  CALCULATE  THE  FLEXIBLE  PROGRESS'  ) 

RATE  USING  THE  CONTRACTOR  INVESTMENT  RATIO.  ( yES  /  NO)  ) 

WHAT  PROGRESS  PAYMENT  RATE  WOULD  YOU  LITE  TO  SPECIFY''  ) 
(PLEASE  USE  THE  FORMAT  O.  X  *  /  ) 

AFTER  HOW  MANY  DAYS  WOULD  r OU  LIFE  THE  ALTERNATE') 
LIQUIDATION  RATE  USED  IN  umLLULA  1  1  uNb VALUE  MUST  BE'  ) 
GREATER  THAN  OR  EQUAL  TO  365.  > 

WOULD  YOU  LIFE  TO  SEE  A  TRANSACTION  REPORT?  (YES  /  NO)  > 
WOULD  YOU  LITE  TO  SEE  A  RECAP  OP  THE  LOST  REPORT  DATA'' 

■v  (  iES  /  NO  >  )  CmS- 

FORMAT (  THE  PROGRESS  PAYMENT  LAG  MUST  BE  POSITIVE  AND  CANNOT  EXCElhS' 
•LED  56  DAYS.  )  CAS' 

FORMAT (  THE  DELIVERY  PAYMENT  LAG  MUST  BE  POSITIVE  AND  CANNOT  EXCECAS' 


.'to  /  toU 

'to  770 
.'6  78C 
,!  to  7  9 ' 
>68'.” 
>to81  < 
.'to82» 
'to? 
,'toS4i 
'totoCi. 

1  to  8  to ' 


CAS' 

CASC 

CAS' 

CM  to'. 

CAS'. 

CAS' 

C  h  5  '■ 

CAST 

CAS' 

C  A  5 1 ' 

CmS' 

CASC 

CAS 

CAS' 

CAS' 


'to88( 

>689' 

.'to9'!” 

■  to  9  1 ', 
>o92‘. 
>fcF  3< 
'694' 
'to  95>, 
.'696'. 
■697', 

•  to  v  3  C 
i  to  990 


.)  / ' 


j  / 


H.ll, 

'1 

2' 

1 1 i, 

i.i4i 

-J' 

06C 


LED 


L'hYS.  ) 


1  O 
;  1 


FORMAT'  /  ) 

F  L”  :tA.  T  (  /  1 

FORMAT  ('  THE  ALTERNATE  LIQUIDATIuN  RATE  Lmi-iCJOT  BE  USED  UNTIL  » 
F  '.ji-'.Hm  !  ’  ONE  y  t  mF  FLito  E  L  hSR'E  i .'  ON  THE  lONIKAL  T.  (  7o5  DAyS)  ) 

IF  i RERUN. ED. U)  THEN 
wF  1  I  L  i  to  ,  3'.'  i 
WRITE  (6,31) 

W  R  I  1  h  ’  6 , 3  —  > 
i  :  .1:  IF 

Haf  23  F’uF*  t-  F  i  jSF’L  S3  P'ArMLNT  LhU. 


Ch£>.' 

Mb’.  '  '  w'  ' 
iH'j"  •*  1 

Cm:.  7i  i  ‘.I 
CmS'  -/U" 
LMb1/’  1  7*' 
Ch S‘  '  7  I  4*.' 
Cmt.'  •  1  *  1 
Lh’s'  ■  '  1  b1  1 
C<Sb<  *7  1  ■’«  • 
ChS'j  7  1  S'  * 


.!Jt-\  1  TE  (6, 3oO > 
wR  I  T  E  <  6  ,  60  > 

WRITE  (6,61  ) 

WRI1  E  (  o  ,  b A ) 

READ  (  5  ,  FMT=*  )  ,  F'RGLAG 

IF  i>  F'RGLAG  .  L  F  .  v .  Oh .  F'RGLAG .  GT  .  5o  )  THEN 
WRITE  ( 6, 250) 

GO  Tu  340 
END  IF 

HIGHLIGHTS  TWO  COST  STATEMENTS  MA Y  OCCUR  BETWEEN  PROGRESS 
PAYMENTS. 

IF  (F'RGLAG.  BE.  28)  THEN 
TWOFLG= 1 
ELSE 

TW0FLG=0 
END  IF 

ASKS  FOR  DELIVERY  PAYMENT  LAG. 

WRITE  <6,290) 

WRITE (6,30) 

WRITE  <o,81 ) 

READ  (5,FMT=*>  ,  DELLAG 

IF  (DELLAG. LT.O. OR. DELLAG. GT. 60)  THEN 
WR  I  T E (6.270) 

GO  TO  410 
END  IF 

AS) S  WHETHER  FLEX  RATE  IS  DESIRED. 

WRITE >o,290) 

WR IT  E  <  6 , 1 30 ) 

WRITE (6, 131 ) 

WRITE (6, 132) 

WRITE <6, 133) 

READ <  5 , FMT  = '  <  A3 )  ' )  FLXFLG 

IF  (FLXFLG ( 1 :  1  ). NE.  ' Y  . AND. FLXFLG <1 :  1 ). NE.  N  )  THEN 
GO  TO  480 
END  IF 

ALLOWS  SPECIFIC  PROGRESS  PAYMENT  RATE  TO  BE  USED  IN 
LIEU  OF  FLEX  RATE. 

IF  (FLXFLGI 1: 1 ) .EQ.  Y’>  THEN 
WRITE  (6,290) 

WRITE (6, 170) 

WR I TE  <  6 , 171) 

READ (5,FMT=*> ,  PRGRTE 

if*  (FRGKTE.  LT.  (_/ .  OR.  F’RGRTE.  GT.  1/  THEN 

F  ORMAT  (  THE  PROGRESS  PAvMENT  RriIE  MUST  BE  BETWEEN  1  AND  0. 

>  i 

WR!  I  T  E  ( 6 , 57u ) 

GO  TO  53 O 
END  IF 
f  i-  uf  LG=0 

else 

I*  Ki  >h  [  b™  1  .  U 


CHb‘,'7  1  9« 


L 3 
CAS'.'724' 
ChdU  /  .  j' 

Ch5072o‘ 
C  A  S  O  7  2  7 1 
CAS072S' 
CAS1!' 7  29> 
CAS1!’  7  30' 
CAS073 1 t 
CAS0732‘ 
Cm  S'!' 7  3  3( 
CAS0  7  34I 
CAS'.;'7  35' 
CAS'!'  736' 
C  A  S  >.*  7  3  7 1 
CAS0736( 
CAS073Q< 
CAS'!'  74'!" 
CAS'.'7  4  1 ' 
CAS1!'  7  42' 
Cm  S'!' 74  3' 
CAS0744* 
CAS07451 
CAS'.)  7  4o' 

LHbv. s  ^ 

Chi1.  !’45‘ 
CAS1.’ 7  4  9' 
CAS0750' 
CmSO 75 1 ' 
CAS'.)  752' 
ChS0753< 
CA5'!)754' 
CAS'.)  .'CL'1 
CAS'.)  756< 
CA5(!-757( 
CAS'!'  758' 
CAS'.)75c;' 
CAS'.'7oO( 
CASO 7fc 1  ( 
CAS0762< 
C  A  S (.)  7  6  3  * 
CAS07ta4i 
CAS0765' 
CAS'J  7  66' 
CAS'!|767( 
CAS'.'7  68'. 
ChS1.)  lb'' 


*  * 


F  RGFL6=1 
END  IF 

Ail S  WHEN  TU  SWITCH  IQ  ALTERNATE  LIQUIDATION  RATE. 

*  *  *  *  *  *  ♦  *  *  *  *  **t*t#jttt#4***«  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  ♦  1 

WRI TE  <6, 290) 
wR  I  T  E  (  6 , 1  9t>  ) 

WRITE  >6, 191 ) 

WR lTt(0, 1 92 )  p  V 
READ ( 5 , FMT=* ) ,  ALTLDV 
IF  (ALTLDY.LT. 365)  THEN 
WRITE (6, 3 10) 

WRI TE (6,31 1 ) 

GO  TO  750 
END  IF 


AS) S  IF  TRANSACTION  REPORT  15  DESIRED. 

•■♦♦♦#-****'*»-*^*****-**-*--****#-«-**-#*-4--*-*-*--**-**--*«--*-*-*i 

WR.  1  T  E  1  6 , 290  ) 

WRITE'S,  220 

F  E  h  D  ( 5  ,  F  M  T  =  >  A  3 )  )  T  R  N  F  L  G 

IF  (  TRNFLG  (1:1).  NE .  Y  .  AND .  TENFLG  <.1:1*.  NE  .  N  )  THEN 
GO  T  Q  820 
END  IF 

♦  •**■*-)►■*•#•■*■•#•**■#•#■****  ♦*♦♦♦♦#  *-*■■*■**  < 

ASK 3  IF  COST  RECAP  REPORT  IS  DESIRED. 

**mHH(*********iH(*'Mt«««#*'nl4«*»»**<*i 

WRI TE (6,290) 

WR ITE ( 6 , 230) 

R  Ei-iD  '  5  ,  FIT  T  =  '  m  3  >  >  bjTFLG 

IF  ' CSTFLG ( 1 : 1 > . NE. ' V  . AND. C5TFLG < 1 : 1 ) . NE. ' N ' )  THEN 
GO  TO  861.1 
END  IF 
WRITE (6,300) 

RETURN 

END 

**********  END  OF  SUBROUTINE  DATAIN 


START  OF  SUBROUTINE  CREFAY 


SUBROUT  1  NE  CREFAY  \  I R  NS  AC  ,  NMTRAN  ,  ACF'RG  ,  CCOST  ,  F’RGLAG  ,  F'RGFLG  ,  STDAY  , 
3DELLAG , ERROR ) 

REAL  TRNSAC ' 325,20) , CCOST 

INTEGER  NMTRAN  ,  ACF'RG  ,  F'RGLAG  ,  F  RGFLG ,  STDAY  ,  DEL  LAG  ,  Z 

INTEGER  CNTFLG ,FR0G1 , DAYS 

CHARlAC  TER*3  ERROR 

PROG  1=0 

F'RGFLG=0 


*****************  »♦«*  *' 


USED  TO  MATCH  COST  STATEMENTS  TO  PROGRESS  FArMENTS 
WHEN  TWO  COST  STATEMENTS  APPEAR  BETWEEN  AlTUAL  PROGRESS 
FArMENTS. 


****************i 

IF  uC COS  T  .  G T  .  <_>  )  1  HEN 


'**♦*«***' 


in************. 


LNTFLG=0 

DO  1 00  I =ACFRG ,1,-1 

IF <. TRNSAC (1,1). ED. 3. AND. CNTFLG. LC. 0)  THEN 
CCOST  =CCOS  T - 1 


CaE<./7  790 
Cm  S'.1  '  d'.1'.' 
lhS07 8 1 O 
CAS'.'  ■  820 
Lm5i.'78  30 
CAST' 7840 
CAS(.'785«:< 
CAS'.'  7 860 
CAS07670 
CAS'.'7880 
CAS07890 
CAS07900 
CAS'. '79  1  (.' 
CAS07920 
CAS07930 
CAS07940 
CAS07950 
CAS079aO 
C  AS'.'797'.i 
CAS07980 
CAS07990 
CAS06000 
CAS<:'80 1 0 
CAS0S020 
CA503030 
CAST'S1’.' 40 
CAS1. ‘6050 
CA503U60 
C  h5‘.'c'.'7u 
C  AS'.'GOaO 
CASt'S'.'S'd 
CAST'S  1 00 
Cub'. '6  1  1 '.' 
CAST'S  1  20 
CAST'S  1  30 
CAST'S  1  40 
CAb'.'S  1  5 ‘.i 
CAST'S  1 6t< 
CAST'S  170 
CAST'S  1ST' 
CAST'S  1  9‘.' 
CAST'82'.'T> 
CAS082 1 O 
CAS08220 
CAST'S-  30 
CASt'624'.' 
CAST'S-  5t' 
CAS'!'S260 
Ch5(  '627T' 
CAS'.'S-S'  i 
C  AbOS  ..'S'  ' 
casi  'S 

LAST'S  1  '  ’ 
Ch:.'.'m  '  ,‘i  ' 
L  M  to  1 . '  b 

- 

Lfc  '.'b  1 

UMb'.'b  '  r  ..1  ' 

CAb'  t  ■ 

C  AS1  ' 6  3S'.i 


n  n  fj 


J','0 


150 


ACF  KG- I 
CNTFLG= 1 
END  IF 
CON r INUE 
END  IF 

*■#--#■■*■■*--*•*■■**•-*■•*-*■■*•*★*■•*•■**■*-■*■*  ♦*#**♦*  ♦  ♦  *♦■♦■*•■*•** 

ADDS  DELIVERY  LAG  Tu  EACH  DELIVERY  DmTE  INKuT  TO 
ESTABLISH  DATE  ON  WHICH  PAYMENT  IS  RECEIVED. 

****************************it**************-*****#-»*-»********** 

DO  150  I  =  1 , NMTRAN 

IF (TRNSAC < I , 1 > .EQ. 4  .OR.  TRNSAC (1,1). EQ . 5 )  THEN 
TRNSAC ( I . 13) =TRNSAC C I , 13) +DELLAG 
P= I NT (TRNSAC (1,13)) +STDAY 
Z=K 

TRNSAC ( I , 2  >  =)  DATE ( )  ) 

END  IF 
CONTINUE 


i_AS  .'84  1 
1_  t-«  8’  '  w  4  . 

Lmc  . £ 4  7 '. 
C  h  r,  •  ’  o  4  4 « . 

CA5084ov 
CHS'.»b4 
CAS0848* 
L Mb'.' 9 4  4i. 
LhD'.'d 

CmS'.’BS  i  (. 

LHO'.'d  J*. 

Cub 
LmS 


t  *■  ■»  ♦  *■  1 


HHM*#**-***  *  *-  * 


CREATES  A  F'LANNED  PROGRESS  PAtMENT  TPANbACTICN  f*  OF  EACH 
COST  STATEMENT  NOT  COVERED  BY  AN  ACTUAL  PROGRESS  PArMENT. 

■**■***-**•**•*■*■*■*****■#■*******■**■*★-#-•*-*-***•-*■*-#■•#-*■*  *•**-**-**•**•►  «••*-**  +  <•*«*+>* 

DO  200  I *ACFRGf NMTRAN 

I F  ( TRNSAC  (  I  ,  1  )  >  EQ  •  3  •  AND  •  (  (  I  NT  TRNSAC  (  1  ,  13)  )  +  PP  ULmu+ST  D  A  Y  )  .  LT  .  Z  ) 
S«  THEN 

PROG 1 =PROG 1+1 
NMTRAN=NMTRAN+1 
TRNSAC (NMTRAN , 1 ) =2 

I  RNSAC  ( NM  TRAN  ,13)  —TRNSaC  (1,13)  +PRGLAG 
r  -  I NT \ TRNSAC v NM TRAN ,13/  * + ST DA y 
TRNSAC •»  NMTr.AN  ,  2 ;  DA  TE  t.  t  > 

PRGFLG= 1 
ELSE 

GO  TO  200 
END  IF 

CHECKS  TO  SEE  IF  PLANNED  PROGRESS  PAYMENTS  ARE  AT  LEAST 
28  DAYS  APART.  MAKES  SURE  PROGRESS  PAYMENTS  AFE  BILLED 
ONLY  ONCE  FER  MONTH. 

**»*****♦*♦*******«******♦****«<»********♦**♦**♦***«****«**»** 

IF  (FR0G1.GT.1)  THEN 

DA yS=TRNSAC (NMTRAN, 1 3 ) -T RNSAC ( NMTRAN- 1 ,13) 

END  IF 

IF  ( DAYS. LT. 28. AND. PROG 1. GT. 1 )  THEN 
WRITE (6,300)  TRNSAC ( NM  TRHN , 2 ) 

ERROR-  YES ' 

WRITE (6,400) 

END  IF 
iO  CON  T  I NUE 

*****  NEXT  LINE  SORTS  TRANSACTIONS  AFTER  ALL  NEW  TRANSACTIONS 
**♦*♦  hRE  CREATED. 

CALL  SORT  (  TRNSAC  ,  NMTRAN  ,  2v> ,  1  3  ) 

■  '  n.i  FORMAT  I  PLANNED  PROGRESS  PA  r  MEN  IS  CANNOT  OCCUR  LESS  .  /  ,  THAN  _3 
BAYS  APhRT.  THE  TRhNSACTION  DATED  , /,F7.0,  VIOLATES  1H1S  RULE. 
KHECi  INPUT  FILE',/,  TO  INSURE  COST  STATEMENTS  ARE  AT  LEAST  28  Oh; 
B  , / ,  APART . ’ ) 

L  ••  ■  K  i.lF  ITA T  i  /  ) 

F t I  UP  N 
END 

END  OF  SUBROUTINE  LPEPAr  #♦*♦***<** 


85  4  <. 


Obi 


Lr-O' 

Ch-3 
Cm:.'. 

Chd' 

L  »  i  * 

L.  H  S 1 
}  LAb1 
ChbuSoZ' 
CMbOboO' 
Lh50SC'4' 

L  Mb'/bbu1 
h  o  '■ . 1  *.b  \~i  o  ' 
LfiCT.'bb  .  ' 

LhS'  'bbO' 

iHb1.1 8 1  ' 

C  AS*. ’8  i. ,l 

LK.bV't  /  1  • 

b  t  4  _j  '  .  •  O  '  4-  1 

UMb'.O  7< 
lao'jB  -*4t 
t.  Mb’.-o 
Cnb1  '8  /? o "> 
C  A  S 1  - 1 6  7  7 1 
Ch5'.'87c« 

Cnb'.'bT^i, 
LHb'.'fid'.’t 
Lhd'.'HH  1 <  1 
CAS1 

LAE'Jb* O 

C  A  j’.Jbv  4  i.. 

CHS'  6Bt‘: 

LMb'JDb'bi. 

CV-,G<  -  k-< 

Lhji  'bbb't 
Lhr.'.'bb 

LL  Mb'1. it-i 4  1  v 
'SCASmo  -4.'  ■ 
L Mb*  7  ^  7< 

i_  n  ••  'b  '  t 4 1 

l.  mo1 

Lh'j*  ’  L':  *5 

L»-0"cr?  1 

Cmcj'.'O- 


START  OF  SUBRuUTINE  ACT FRY 


LhS'.'UW' 
CA509i.ii.ii, 

CAS<.'9\>*_t. 

SUBROUTINE  ACT  FT  Y  IT  RNSAC  ,  A  ,  OUTPUT  ,  FlQhT  D  ,  CSTFLT  ,  FRF  RAT  ,  ALTLD  Y  ,  S  I  CGChB'.'VvT  i. 


'  'zj  T  ,  F  F  CN  f  ) 

REAL  TRNSAC  ;  325,2*.'/  ,  OUT  RUT  t  315,  lw  ,C  STFL  T  *  1000,20  ,  FRF  RAT  ,  STCOST 
INTEGER  A  ,  FLUATD  ,  ALTLDY  ,  FR'CNT 

*****»*************♦******************#**********************.* 
DETERMINES  PAID  INCURRED  COST  AT  THE  TIME  OF  THE 
TRANSACTION. 

************************************************************** 

DO  oO  1  =  1,  FLOATD 

IF  <  CSTFLT ( I , 1 ) . LE . TRNSAC (A , 1 3 ) )  THEN 
TRNSAC  ( A,  17)  =CSTFL.T  <  I  ,  2  /  +TRN5AC  ( A  ,  17) 

END  IF 
CONTINUE 

TRNSAC (A, 1 7  > = TRNSAC ( A , 1 7 ) +STCOST 

*************************************************************** 

NEXT  THREE  LINES  DO  THE  FOLLOWING:  ROLL  COST  ELIGIBLE 


CA509>  '40 
CASORmO1.! 
CASu9i_»60 
CAS09u70 
CAS09080 
CA509‘.i9u 
CAS09 1 00 
CAS091 10 
CAS09 1 20 
CAS091 30 
CAS09  1  40 
CA509  1  50 
CAS>.'9160 
CAS09170 
CAS09180 


FOR  PROGRESS  PAYMENT  FORWARD;  ROLL  COST  ELIGIBLE  FOR  100  0/0CASO9190 


PROGRESS  FArMENT  FORWARD;  mND,  )  EEF 
PROGRESS  PAYMENT  RATE. 

TRNSAC (A, 1 5 ) = TRNSAC ( A- 1 , 15) 

TRNSAC (A, 16) =TRNSAC ( A-l ,16) 

T  RNSAC ( A , 1 e > =  T  RN5 AC ( A , 4 ) 


TRAC)  OF  THE  CURRENT 


t  EEFS  TRAD 


LIQUIDATION  FmTE. 


****♦*****»♦***»*******»»* 

IF  (TRNSAC (A, 13) .LT. ALTLDY) 
TRNSAC (A, 19 ) = TRNSAC ( A , 4 ) 
ELSE 

TRNSAC (A, 19)=  TRNSAC ( A , 4  > 
END  IF 


r  **********1 


( 1+FRFRAT) 


FILLS  IN  OUTPUT  FOR  TRANSACTION  REPORT. 

***«*»*IH(********»*****i(*****lHt*********t****  +  *********  +  1 

OUTPUT (A, 1 ) =OUTPUT (A-l , 1 ) 

OUTPUT (A, 2) =OUTPUT (A, 1 ) -TRNSAC (A, 17) 

OUTPUT (A, 3) = TRNSAC (A, 17) 

OUTPUT  (A, 4)  =OUTF'UT  (A-l  ,4)  +  TRNSAC  (A,  3) 

OUTPUT  ( A  ,  5  )  =OUTF'UT  ( A-  1 ,5) 

OUTPUT (A, 6) =OUTPUT (A, 4) +OUTFUT (A, 5) 

OUTPUT (A,7) =OUTFUT (A-l ,7) 

OUTPUT  (  A  ,  8 )  =OUTF'UT  (A,  6)  +OUTFUT  (A,  7/ 

OUTF'UT  (A, 9)  =OUTF'UT  (A,  3)  -OUTPUT  (A,  6) 

OUTPUT  (A  ,  10)  =OUTF'UT  ( A-l  ,  10)  +  TRNSAC  (A,  3) 

*****  NEXT  LINE  IS  A  COUNTER  FOR  PROGRESS  PAYMENTS.  USED  IN 
*****  SUBROUTINE  F'RGPAY  IF  PROGRESS  PAYMENT  LAG  EXCEEDS  COST 
*****  STATEMENT  PERIOD.  USED  TO  MATCH  PROGRESS  PAYMENTS  WITH 
*****  PROPER  COST  STATEMENT  DATA. 

FT  lNT=P'PCNT  +1 

RETURN 

END 


***  **  *  *  *** 


END  OF  SUBROUTINE  ACTPPY 


START  OF  SUBROUTINE  F'RGF'A  Y 


********** 


CASOvCuO 
CAS09210 
CAS09220 
CAS09230 
CAS09240 
CAS09250 
CAS09260 
ChS>.'92  70 
Ch S09280 
C A SO 9 2 90 
CAS09300 
CAS09310 
ChS<.'9  320 
CA&U9330 
CAS09340 
LmS'j 9  7  5  'j 
CAS09360 
CASO9370 
CAS09380 
CAS09390 
CAS09400 
CAS09410 
CAS09420 
LAS0943U 
CAS09440 
CAS09450 
CAS09460 
CAS09470 
CAS'.>94S>.< 
CrtS'9-H  i 


CA;Y  Aj.i) 

CAsy'AG  ;,i.i 
CAS1.  ’954'.  I 
CAS'  iA'55'  ’ 

Cm-.'  >95, t, i  j 
LmS'.|C-'j  ■«  I 
CAB'  iYjM'.i 


T  HEN 


(  1  +  FR.F  Rh  r  > 


ChS'jRgo 
ChS'.'S  6 
ChS'->968 


Cm  S'. '9  /  1 
ChS1.  v  7  2 
ChS'.R  7  3 
ChSu 9  7  4 
CAE0975 
c  m  bi.*  r  r*  i.  j 


Lh  d'.'^S  i 


CAS'.i9S4 

l_  ‘  '  Z  '  CJ 


bUBROUT  INE  FRGFAY  <  TRNSAC  ,  A, PROF  1 E , CS TPL f , PLOA I D , OUTPUT ,  TOICHG,  lmz-  -o 

bUMC  ST  ,  [  OTPyD,  ALTLDY  ,  FRY  RhT ,STCUb 1  ,  P  F'i_N  1  ,  Lb  I  DA  r  ,  7  NUP  Lb  i  L-b'  ; 

FEmL  FFM!  j,  FRMlo,  FRM  1 9  ,  FRM2'»E,  FPM21E,  PKM25  ,  F'AYMNT  C  A  z  ■  -  r - 

FtnL  I  RNSmL  '  ~725 , 20 )  ,  PRGK  TE.CSfFLT  1  1 000 , 2  >  .OUTPUT  <  52b  ,10*  ,  IuTlHu,  Lf- •  •.  fc-  3 
•  SUM  2  5  T  ,  FRF  R'A  T  ,  TO  TP  r  D  ,  ST  COS  T  f  mS-  -m  -4 

i  N  I  tbc.K  m  ,  PLQA  T  D  ,  hL  T  LL1  v  ,  F  F'LNT  ,  C  S  T  Dh  r  1  1  vi.O  ,  T  WUF  LG  C  Y-tSv"  c  lj 

y*  COUNTER  DESCRIBED  ABOVE  AT  END  OF  SUBROOTINE  ACT FRY.  CAS0966 

P F CNT =PPCNT+ 1  CAS096 - 

►  *  NEXT  14  LINES  DO  SANE  THING  AS  DESCRIBED  ABOVE  IN  SUBROUTINE  CASz'963 
hL  I  F  'F  Y.  CHb'.'RcY 

TRNSAC  ( A  ,  15)  =  TRNSAC  (  A-  1  ,  1 5  )  CAS  '.'9  73' 

TRNSAC  (A,  16.'  -‘TRNSAC  (A-l  ,  16)  CAS097  1 

DO  10O  1  =  1,  FLQATD  CAS'. -9  72 

IF  (CSTFLT ( I , 1 > . LE. TRNSAC (A, 13> >  THEN  ChS'.'9  7  3 

TRNSAC  (  A  ,  1  7  )  =  TRNSAC  ( A  ,  1  7  >  +CSTF  LT  ( I  ,  2 )  C  A  SO  9  7  4 

END  IF  CAS0975 

continue  Chs:r7= 

TRNSmC  ■  A,  17)  =  T RNSAC  <.A,  17)  +STCOST  i_mS'.'^  ’  ' 

T  RNSAC  (  A  ,  18)  =F'RGR  TE  C m r>'  >  9  7 S 

IF  (TRNSAC  (A,  13)  .  LT.ALTLDY)  THEN  ChSv9”- 

TRNSAC  (  A  ,  19)  =  TRNSAC  (  A  ,  1  8  )  C Mb1.'  -r S’  ' 

ELSE  LmS'.,‘-'61 

TRNSAC  (A,  19)  =TRNSAC  (A,  18)  /  (1+PRFRAT)  CmS-jRSC 

END  IF  ChS'.'RST 

HATCHES  FROGRESS  PAYMENT  TO  F ROPER  COST  STATEMENT  DATA  L f <$-.•< 

WHEN  PROGRESS  PAYMENT  LAG  EXCEEDS  COST  STATEMENT  PERIOD.  C  A  S  ’  9  b  6 

NOTE:  ALL  ’YARIA&LES  FRMaa  EOCmTE  T u  LINE  NUMBtRb  ON  Ct-tb'.'-bb 

DD  FORM  1195  (PROGRESS  PArMENT  FORM).  Cm  SORB'” 

IF (TWOFLG. EQ. 1 >  THEN  Chz"VY1 

FRM15  =  TRNSAC  ( CSTDAY  (FPCNT)  ,  15)  +TRN5AC  (A,  1  8 ;  -^TRNSAC  U2STDAY  (FFCNT  )  CmS«  '99  2 
y  ,  16)  ChS  <.<99  5 

GO  TO  110  CAZY»994 

END  IF  ChS','445 

FRM1 5  =  TFNSAC (A , 1 5 ) *TRNSAC ( A , 18;  + TRNSAC (A, 16 >  CASv996 

FRM lo  =  T OTFtD* TRNSAC (A, 19)  ChSvYY' 

IF  (FRMl6.LT.  FRM15)  THEN  i_. -ov'' w  m 

F  R  M  1  5 = F  R  M 1  6  L  n  S 1 . 1  ■*  ^ 

END  I F  CAS  1 1  " 

FRM  1  9  =  FRM1 5- OUTPUT  (A-l  ,4)  CAS1<.»  ■! 

IF  ■  T  WOFLG.  EQ.  1  >  THEN  CAS1'-  . 

FRM20E=  (  TRNSAC  (CSTDAY  (PF'CNT)  ,15)  — SUMC5T  )  *  TRNSAC  (A,  18)  +  TRNSAC  (lz  I  DLAS  1  "•  .' 
ym  Y  I  F  FCN  T  )  ,  1  6  )  lhSI1  "  4 

GO  TO  120  Cm-.N'.'i  5 

END  IF  LhzI  '.".'6 

FPM20E=  (TRNSAC  (A,  15)  -SUMCST)  *TRNSAC  <  A,  18)  +TRNSAC  (A,  16)  CASl  ■  " 

F  RM2  1  E=  (TOTF  yD-TOTCHG)  *  TRNSAC  (A,  19  >  lh=1  ■  -  ■>-. 

IF  'FRMC'lE.LT.  FRM20E )  THEN  LmN . 

FRM20E=PRM21E  Cm..  1"’.  ' 

END  IF  L"-l"l I 

T  kM^‘.:i  =  FRM2i.)E— OU  TF'UT  *  A—  lmv  i'  1  1  . 

IF  (PRM25.LT. FRM19)  THEN  Lm)  i"l  ' 

F  F.M  1  9— R  RM25  L  ■  •  •  1  "  !  4 

END  IF  lm'.  1  ■  1  ‘  " 

Km!  MN  T  =FRM  1  9  I..--,  1  !•:, 

•  I  . , '  1  ■  1  1 

FILLS  IN  OUTPUT  FOR  TRmMSmLIIuN  REFuFI.  i.«-N  l  • 


*^-#*Miltt*«*** 


(  *  *  *  *  *  *  i 


•  ******* 


uu  i  ku  r  •.  a  ,  i )  -ou  r  f  u  r  >.  a  ~  i ,  l ) 

DUl  f  LIT  ( A ,  2  )  =UUTFUT  vfi,  1  )  -TRNSAC  (A,  17) 
OU  I  FU  f  ( A  ,  3  )  =  TRNSAC  ( A  ,  17) 

Output  ia,4>=output  <a-i  , a >  +f a  r  mnt 
GUTFI.iT  > A,5>  =OUTPUT  (A-l ,5) 

OUT  F'UT  ( A  ,  6  >  =  C?U  TF'UT  ( A  ,  4  )  +OUTFUT  -A,  5) 
OUTPUT (A, 7) =OUT  PUT (A-l ,7) 
out  PUT (A, 8) =DUTPUT (A, 6) +OUTPUT (A, 7) 
OUTPUT  <A,9>=0UTPUT (A, 3) -OUTPUT (A, 6) 
OUTPUT  (A,  1  O )  =UUTF'U7  (A-l  ,  10)+PAVMNT 
PUT URN 


END 


**********  END  OF'  SUBROUTINE  PRGPAY 


*  **** 


START  OF  SUBROUTINE  COS  1ST 


SUBROUTINE  COSTST ( TRNSAC , A , NMCSTL , ELMENT , FLOATD , C3TFLT , OUTPUT , 
l 5UBCNT , UPDCNT , OF  DFLT . UF DSUB , PRGRTE , ST  COST , CUT ST , C5TDA Y , TWOFLG) 
REAL  TRNSAC ( 325 , 20 >  , ELMENT  (1",5)  ,CSTFi_T  1  1  i.'OO  ,  2  )  ,  OUTPUT  (325,10)  , 
S-.UF  DFLT  (  1000,2)  ,UFDSUB  <  1000,2)  ,  F'RGRTE  ,  S  TCQST 
INTEGER  A , NMCS  TL , FLOATD , SUBCNT , UF  DON  T , CNT  ST , CSTDA Y ( 170)  , TWOFLG 
REAL  PA ID, UNPAID 


DETERMINES  RAID  INCURRED  COST  ELIGIBILITY  FOR  F  ROGRESS 
F  A  r  MEN  TS . 


*■  *  ♦  *  *  * 


Du  280  I=l,NMCSTu 

TRNSAC (A, 14) =TRNSAC (A, 14) +TRNSAC 'A, 1+2) 
FLOATD=FLQA  TD+ 1 

*****  COST  ELIGIBILITY  CODE  'INCUR' 

I F i ELMENT (1,1). ED. 1 )  THEN 

LSTFLT  (FLOATD,  1  )  =TRNShC  (A, 13)  +EL.MENT  (1,2) 
CS  I'FLT  v  FLOATD  ,  2)  =  TRNSAC  (A,  I+2> 

TRNSAC (A, 15) =7  RNSAC (A, 15) + TRNSAC (A, 1+2) 
END  IF 

*****  COST  ELIGIBILITY  CODE  PAIDC’ 

Ir . ELMENT a , 1 ) .  EQ. 2)  THEN 

F  A  I  D  =  TR'NSAC  (  A  ,  I  +2  )  +ELMENT  (  I  ,  3  > 

UNFA  I D=TRNSAC (A, 1+2)  +  ( 1 -ELMENT ( 1,3)) 
LSTFLT (FLOATD, 1 ) =T RNSAC (A, 13) +ELMENT ( 1,2) 
CSTFLT  FLOATD  ,  2  )  =UNPA  I D 
UPDCNT  =UF’DCNT  + 1 

UF DFLT (UPDCNT , 1 > =CSTFLT (FLOATD, 1 ) 

IJFDFLT  (UPDCNT  ,  2>  =UNFAID 
F  LOATD  =  FLOA  TD+ 1 

CSTFLT (FLOATD, 1 ) = TRNSAC ( A , 13) +ELMENT (1,4) 
LSTFLT  ( F  LUh  TD,^i-F'AID 
I RNSAC ( A , 1 5  > =  7 RNSAC ( A ,  15) +Fh I D 
F_  N  D  I F 

***♦,  LOST  ELIGIBILITY  CODE  SUfcCT 
i r 1 ELMENT (1,1). EO. 3 /  THEN 

F A  I D=  I RNSAC ■ A ,  1 +  2 / *E LMENT  < 1.3) 

CNF A I b= TRNSAC ’A.l+L)*) 1 -ELMENT (1,3)) 

C  S  1  F  L  T  (  F  LUh  T  D  ,  1  )  =  I  KNshL  >.  A  ,  1  3- +  L  ..  (TL  N  t  >  1  ,  —  i 
LS  TFL  T  (  F  LuA  ID  ,  ,1  >  -UNF  A  I  L1 
S-.-BCN  1  =  SUBuNT  +  1 

jF  OuUB 1 SUBCNT ,  1 ) =  Ld  f FL  T  iF lUh f  D  ,  i  i 


Cf+E  1  1  +  '.' 

ChS  1  «  ' 

Ch-_  i  .  _  i  <:• 
CAS  1  ‘.'21.0 
Ch;  1  '.'2  3«.' 
ChSI  "240 
u  AS  1  (.2  50 
ChS  1 0263' 
ChS 1 0270 
CAS  10230 
CASK  29'.' 
CAS  1 0300 
CAS  1 03  1  0 
CAS  1 0320 
CAS  1 "330 
CAS  1  (334(3 
CAS  1  (335(3 
CAS  1  (3  3  6 '3 
ChS 1 0370 
CAd  1  (.<  3 3 <3 
CAS  1(3390 
CAS  1  <3400 
CAS  1 '.'41 '3 
CAS  1  '.'4  2  0 
ChSI 0430 
CAS  1  344(3 
CAS  1 0450 
CAS  1  04  5<.i 
Lh-1 "4  v 

Lm;  1  .  H.r. 

CAS  1  049'., 
UH3  1  Vj'.'O 
ChS  I'.'LIO 
Lm  S  1  '.'5~ 
LhS  1  05  3'.1 
CAS  1  (3540 
ChSI 0550 
Ch -<  1  (.'Si!.' 
CAS  1  >3570 
Ch:  1  '.'58'.' 
LhS  1  '.'59 
CAS  1 1  .'S'.".' 
CAS  1 06  10 
CAS  1 0*20 
CAS  1  >3t  30 
CAS  1  '.'EHi.i 
ChS  1  ut'51. 
LHS  1  '.'20'.' 
CAS  1  'S’" 
ChS  1 '  -so'  ' 
Lcb  1  '  ' 

LHO  1 
LhS i  '  L 

l_  h.  ;;  j 

LhU 

Lhc  1  *4  ■ 

l.H';  i  •  '  ' 

t  _  fr  4  -  ,  ‘  ■  1 

L  hS  i  •  1 
Ln  -  1  1  '  ' 


n  n  n 


UFDSUB (SUBCNT  ,2)  =unraid 
FLGh  TD  =  FLGATD+1 

CS1 FLT (FLOATD , 1 ) =1 RNSAC (A , 13) +ELMENT (1,4) 

CSTFLT  (FLOATD,  2)  =F'AID 
T  R  NSAC  ( A  ,  IB)  —  T  FNSAC  (  A ,  1  B  /  +FAID 
END  IF 
LUN I INUE 

»«tn**»«**#<»»************»*t*«*#«*#****«#lHHH(**iHt*#***f»*»»1 

PUTS  UNPAID  FLOATED  COSTS  FOR  COST  ELIGIBILITY  CODE 
'  PA  I  DC  '  INTO  COST  ELIGIBLE  FOR  PROGRESS  PAYMENTS  AFTER 
FLOAT  PERIOD  EXPIRES. 

DO  450  1=1, UPDCNT 

IF  ( UF'DFLT  (  I  ,  1  )  .  LE.  TRNSAC  (A,  13)  )  THEN 
TRNSAC (A, 15) =TRNSAC (A, 15) +UPDFLT  < I ,2) 

UFDFLT (1,1) =100000 
U  F'  D  F  L_  T  (I  ,  2  )  =  O 
END  IF 
CUNT INUE 

♦  ♦t******************#****************-****#******************! 

PUTS  UNFA  ID  FLOATED  COSTS  FOR  COST  ELIGIBILITY  CODE 
' SUBCT ’  INTO  COST  ELIGIBLE  FOR  100  0/0  FR0GRE55  PAtMENTS 
AFTER  FLOAT  PERIOD  EXPIRES. 

iHf*»»******»***t**»*»****»tt  +  )HHt*»**»*»t*»*»il*»***t***»*tin»** 

DO  520  1=1, SUBCNT 

IF (UFDSUB (1,1). LE. TRNSAC (A. 13) )  THEN 
TRNSAC (A, 1 d ) =  TRNSAC (A,  1b) +UFDSUB ( I .2) 

UF  DSUB  (1,1)  =  100*.>o0 
UFDSUB  (1,2.'  =0 
END  IF 
CONTINUE 

*******#«-***#****************#*  +  ****K-***<*#*4****************1 

DETERMINES  F  A I D  INCURRED  COST  AT  THE  TIME  OF  THE 
TRANSACTION. 

**«»**************»*#****«**#****  +  *********-*****H(«*««-***<»**i 

DO  570  1=1, FLOATD 

IF (CSTFLT (1,1). LE. TRNSAC  < A, 13)  )  THEN 
TRNSAC (A, 17) =TRNSAC (A, 17) +CSTFLT (1,2) 

END  IF 
CONTINUE 

IRNShC (A, 17) =TRN5AC (A, 17; +STCQST 


FILLS  IN  OUTPUT  FOR  TRANSACTION  REFORT.  ALSO  ROLLS 
COSTS  ELIGIBLE  FOR  PROGRESS  PAYMENTS  FORWARD  AND 
1  EEF'S  TRACI  OF  PROGRESS  FA/MENT  AND  LIOUIDATIuN  FATES. 


Mt--****-*-***-*-*/ 


IF ( A. GT . 1 )  THEN 

T  RNSAC ( A , 1 5  > = TRNSAC ( A , 1 5 ) + TRNSAC (A- 1  ,  15) 
TRNSAC (A, IB) = TRNSAC (A, 1 6 ) + TRNSAC ( A- 1,16) 
TRNSAC (A, 18; =TRNSAC (A- 1 , 18) 

TRNSAC  ■  A,  19  •  =  TFNShC  (A-1 ,19) 

GUI  F  UT  (  A  ,  1  )  =QUTP'U  T  (  A-  1  ,  1  )  1  RNShC  -  A  ,  14/ 

UUT  FIJI  (A,  4)  =OL'TFUT  '  A-  1 , 4  ) 

OUTPUT  <A. 5) =OUTFUT (A-1  ,5) 

DU  1  f-  UT  (A,  6)  =OUT  FUT  (A-1 ,6) 

OUTPUT (A, 7) =OUTPUT (A-1 ,7) 

OUT  FUT  (A.  8)  =QUT  F'U  I  <  A-  1 , 8  / 

OUTPUT  (A,  1 )  =0 UTFIJT  (A-1  ,  10) 

ELSE 

(RNSAC (A, 15) =  TRNSAC  .A,  15/ +ST  COST 


Fuji1  -2- 
Ch  l.  l  ub  3’ 
ChS  1 1.’84' 
LAS  1  '.-t 
CAS  1  '.'Bu1 
CAS  1  287' 
CAS  1  MBS' 
CAS  1  089' 
CAS  1  09  hi 
CAS  1  '."7  1  ' 
C  A  S 1 1  9  2 
CAS  1  !./9  3 
ChS  1  '.'94 
CAS  1  0*5 
ChS 1 09c 

ChS  1  '.'9  7 

CAS  1  .•"=> 
ChS  1  '-'9  9 
CAS  I lv" 
ChS  1  I'M 
CAS i 1 02 
ChS  1  i '  '3 
CAS  1  1  (.'4 
ChS  1  1  "5> 
ChS  1  10b*. 


CAS  l  1"-' 
CAS  1  1 10 

ChS ; 11 l 

CAS) 1 12 
L  m  S  i  1  1  3 
C  h  M  1  1  4 
CAS  1  1  1  1; 
ChS 111b 
ChS  1  1  1  ' 
Lh; 111S 

C  H  B  1  1  1  9 

ChS 1  1  _ '  ' 
1_hS  1  1  _  1 
C  A  S i 12.. 
LhS 112. 
CAS  1124 
LhS 1 125 
C  A  S  1  Mb 
L  A  S 1  127 
C  A 5 1  1 28 
LhbI  1  M- 
C  A  S  1  1  2 
l  m-  ii.'i 

(_HB  1  1  . 


OUT  PUT  ( A  ,  1  )  =TFN5AC  i  A,  14  ;  +57  COST 
f  nl-ianC  v  A  ,  18;  =  F  RGF  I  E 
TRNbML (A, 19; =  PR6R I E 
END  IF 

JUT  PUT  ;A,0;  -OUTF  IJT  (A,  1  •  -TPNSAC  (A,  1  7) 
'J’J  I  P  U  T  (  A  ,  3 ;  =  T  RNS AC  <  A  ,  l  ; 

UU1  PUT  <  A  ,  ;  =  OU  TF  UT  (  A  ,  3  ;  —OUT  P'UT  1  A  ,  6  ) 


•*-»■***•**•■*••») 


USED  WHEN  FROGPESS  PAyMENT  LAG  EXCEEDS  COST  STATEMENT 
FERIOD.  MATCHES  PROGRESS  PArl-IENTS  WITH  PROPER  COST 
STATEMENT  DATA. 

►  »*#******-»»****-**'inni'*i;'****-*i«-******iMnnnnnnn*'*-jnm"*'*int*im-**i 

(lWijFLQ.EC.  1)  THEN 
IN  I  ST  =CN 1ST  + 1 
.  S ! DA  y  iCNT5T>=A 

:>  if 

'URN 

►  ■»**■»•»**■»  END  OF  SUBROUTINE  COST5T  ***•*■•*♦**•*■* 


*•-*  *•*■**•■**-*■*■ 


ST  hKT  OF  SUtfhuUT  I NE  FLNDEL 


_  .-IF  OUT  INE  F  LNDEL  (  T  RNSAC  ,  A  .  ALT  LDY  ,  FRFRAT  ,  ALC'FLG  ,  CS  TFLT  ,  FLOATD, 

•’  ’ b  !  _  Hij  ,  bUMC  S  I  .OUTPUT  .  F  RGR  T  t  ,  L S TDEl.  ,  E’ELLmG  ,  ST  LUST  ,  T QD A  r  3 ,  STDAY  , 

:  1  F  F  F  .LFLG  1 

t  LfL  P  K  P  F  A  Y  ,  L  I  D  l’h  T  .  L  U  b  T  ,  NET  Fh<  ,  ALT  FRF 

r-i.r-L.  1  RNSmj  1  ..'j  .FRF  RhI  ,  L  S 1  P  L  T  i  1  ,Tul  CH6  ,  SuMCST  .OUTPUT  t  ’ 

■  .  .  ,  j  i  jUb  T  ,  :  uDh  i  S 

1 ' .  1 1  ..  fc  P  A  ,  hL  1  L.  L1  y  ,  A-.L'P  LG  ,  P  L UA T  D  ,  ST  DA  y  ,  DEL  LAG 

f  iF_  *  T  THFEE  L  INE  a  F'EFFUPM  SAME  GFERhTIQNS  AS  DEbCRIBED  IN 
• -  bUBFUUTINE  hL  T  f  F-  Y  . 

■  i-  N  S>- v3  >  A  ,  1 0 ;  —  r  RNbAC  >  A—  1  ,  1  7j  ' 

T  f  <  N  b  hL  1  A,  16)  =  T  FNShC  <,  A  -  1  ,  16) 
i P N  2 AC i A ,  18) —  T  F  N  3hL 1 h ~~ 1 ,  18) 

♦  ♦  NE  >  T  LINE  I.'ETEPMINES  DATE  OF  LAST  DELIVERY  TRANSACTION  IN 
►  *  *  TERMS  OF  DAtS  AFTER  AWARD. 

>  -  I  NT  <  TODAy  Sy-STDAt  )  +DELLAG 

•**  NEXT  SIX  LINES  DETERMINE  PAID  INCURPED  COST  AT  THE  TIME 
-*  L'P  THE  TRANSACTION  AS  PREVIOUSLY  DESCRIBED. 

DO  110  1=1, FLOATD 

IF  (CSTFLT <1 , 1 ; . LE. TPNSAC (A, 13) )  THEN 
TF.NSmC  ''  A  ,  17;  =  I  RNS  AC  ( A  ,  17)  +  L  ST  PL.T  (  I  ,2) 

END  IP 
uUN r INUE 

I  RNSAC  A  ,  1  7  )  =  T  F  N  S  A  C  ■  A  ,  1  7  )  +  S  T  C  0  S  T 

CONVERTS  TO  ALTERNATE  LIQUIDATION  RATE  AND  MA) ES  PROFIT 
CA fLH— UP  hDJUS  1  F1ENT  . 

•  •  **  +  -*#-»***■*** 

1  F  i  )  h[;';HL  (h  ,  17  i  .  Gf  .  ALTLDn  THEN 

’  -  :  iL  ■  a  ,  i  -*  ;  =  I  F.'NSAC  1  A  ,  1  8  )  /  +f  P  PR  AT  ; 

•.  -i  I  L.UF  =0 

I  r  1  hLL’F  Lb.  tO.  '/  1  T  HEN 

L.m  I  <_UJP  —  HL  I  F  Ft — OU  i  F  U  T  '  A—  1,7’) 
a1.  L'P  LG^  1 
Law  IF 


lap  1 1  ; l 
LH-.  i  14'" 
L  a  b  ;  1  4  i  1 


J  M3  1  i  H  H 

CAbl  1 4  7 
CAS  1  14b 
CAS  1  14  7 
CAS  1  1 48 
LAS1  1 4  b 
CASH  50 
CaS 1101 
CASi 101 

CaS  no: 

ChS 1154 
C  A  S 1  17  U 
CASi 17 6 
LMb  1  15. 
CAS  1  1 59 
CAS  1159 

L  A  b  1  lb1-1 

ChS 1 1 b 1 
C  A  S  1  1  6  2 
L  a  5  1  16  7’ 
C a  S 1 lc4 
l-aSi  j  b  7' 
1  1  66 
.5C  a  i  1  1  t 
L  A  5 1  1  6  3 
CaS 1 1 64 
CAS  1  1  77' 
CASI 1 7 1 
CASi  1  7 
CASI 170 
ChS 1 1 74 
LAb 11  5 

CASI 1 76 
CAS  117; 
CAS  1173 
CAS  1  1 7  9 
CAS  1  1 3u 
CAS  1181 
CASI 180 

cas i is: 

CASI 184 
CASI 185 
CASI IBS 
C  A  9 1  19  7 
CASI 199 
CAS  1  1  9- 
C  h  S  1  1  9 '  > 
L  AS  1  1  v  1 
C  a  7.  i  1  _ 


■-  Ml,  114 
Lh7  1  1  4  c- 


r 


* 


L 

L 


I  KNtdmL  t.H(  i  v  )  ~  T  F\NbAC  1  A  ,  18) 
t*_NL'  If- 


LHECT  5  Tu  SEE  IF  L  I OU  I  DhT  I  ON  AMOUNT  EXCEEDS  Uf  Ji_  I  vu  1 1  >-<  ■  t  D 
r  P 'jbEESb  RAT  MENT  I3ALANCE. 

L  i  i’uh  f :- 1  KNShC  t  h  ,  Z  >  *  1  Ffw  -nu  1  A  ,  1  h  ) 

IF  <  L  I  C'DA  f  .  6  T .  OUTPUT  (A-l  ,  10)  >  THEN 
i_  I  L  Dm  i  —GUT  F'UT  .  A—  1,1  0  i 

IF  (  I  NT  (  TENS  AC  <  A  ,  2  )  )  .  NE .  (F  DATE  O  i  >  >  THEN 
LFLG  = 1 
END  IF 
END  IF 

**  NEaT  4  LINES  DETERMINE  DElIvEFt  FmtMENT  AND  ThE  bFLIT 
BETWEEN  COST  AND  FRQFIT. 

NE  Trnr- TENS AC (A,  3  > -LIQDAT 
COST  =  TF'NSAC  (  A  ,  3  >  /  <  1  +  PPP  RAT  :■ 

Vt.  iS  [  F  D=COST - TRNsAC  (A  ,  I  c  >  *CC  5  T 
F  RFF  A  y  "NET  F  A  i  -CQSTF'D 


■*■-**-****♦*1 


>*--*-**■**,►♦-#1 


COMPUTES  WHAT  PROFIT  WOULD  BE  AT  hl  T  ERNAT  E  RATE  PRIOR 
TO  SWITCHOVER.  USED  TO  MAI  E  ONE- TIME  PROF  I T  «Wu=T  MENT. 


--•♦♦•a-*'*- 


»***«.*•..«*«« 


IF ( mlOFLu. EG. O)  THEN 

hl  TF  R  F  -- AL  T  F  R  F  +  i  T  RNSAC  >  A  ,  3  i  —  (  T RNSAC  ( A  ,  3  >  :  1  1  +  F  RF  RAT  t  >  1 
END  IF 

**  FILLS  IN  OUTPUT  FOR  TRANSACTION  REPORT. 

OUTPUT (h. 1) -OUTPUT (A-l , 1 > 

0  u  1  F 1 U  T  i.  A  ,  _  i  —  0  U  I  F  (J  T  !  H  ,  1  >  —  1  R  N  r-  H  C  1  A  ,  1  > 

L‘U  I  F  LJ  I  ‘i  H  ,  _*  /  ~  I  F.N^hL  1  h  ,  1  ,  f 

OUTPUT  <  A  ,  4  )  =OUTRUT  (.A-l  ,4) 

GLTFUT (A, 5) =GUTF'UT (A-l ,5) +C05TFD 
OUT  F'UT  (A,  6)  =OUTPUT  (A,  4)  +OUTPUT  (A,  5) 
ijU  I  P  U  T  <  A,  7)  =UUTF  UT  ( A-  1 , 7  >  -t-P  RFF  A  V  +  CA  T  CUP 
OU i F  UT (A. 8) ^OUTPUT  (A,6>  "-OUTPUT  t  A,  7) 

QUTPU  T  A  ,  9  )  =OUTPUT  ( A  ,  3  >  -  OUTPUT  (A, 6) 

OUT  F'UT  (A,  10)  =OUTFUT  (A-l  ,  10)  -lIDDhT  +Lh  :  CUF' 

T UT  CHO  =  TQTCHG+ TRNSAC  (  A  ,  3- ) 

5UMCST  =  SUMC5T +C03  T 


FULLS  UP  ALL  DATA  FOR  LAST  DELIVERY  TRANSACTION.  ZEROES 

out  float  and  unliquidated  progress  faiments.  fills  in 

OUT  F  UT  FOR  TRANSACTION  REFORT. 


*********»*-*-**«-»-»-»*y**i 


I  F  <  1  NT ( T  RNSAC ( A , 2 )  )  . EO .  U  DA  IE  U  )  /  >  T  HEN 
OUTPUT ( A, 1 ) ^OUTPUT ( A- 1 , 1 > 

OUTPUT  (  A  ,  2  •’  =0 

OUTPUT (A , 3) -OUTPUT  (A,l) 

OUTPUT (A, 4; =OUTPUT (A-l ,4 / 

uUTF  UT ( A , 5 ; =0U  T F  U T ( A ,  3 ) - OU  f  PUT ( A , 4 / 

OUTPUT  i  A  ,  6  >  =OUT  PUT  ‘  m  ,  4  t  +  0L  TFUT  ■'A.C' 

OU  i  F  U  T  i  A  ,  7  /  «  (OUTPUT  •  A  ,  3  )  *  1  1  ♦PR.FKm  I  i  >  -OU  IF  UT 
UL'  TFUT  <  A  ,  E  )  =OUT  F  UT  ■  A  .  6  )  +  OUT  PUT  ( A  ,  7  i 
ijU  !  F  U  T  i  h  ,  9  j  —  OU  T  PTJ  I  A  .  3  )  —  OU  T  F'U  T  (  A  ,  b  ) 

ou  i  F  ’j  r  •  m  ,  i  <.' ) 

END  It 
F  L  i  '  f-'N 


_  w  i  ‘  .  1  ’ 

L-iE  1  _ 
lhy  1  O'Mt;1.' 

LH-  1  1  i  I'M 
i  H= 1 s 1  :  v 

O-l 


iS.  -  1  2 


ChE I _ 1 4 v 
C^SIL-  m 
ChS  1 _ i  " 


Cf- it- 1 2. 

gas:  ■ 


lhS i ^  :  ‘  m 

c.  a  t-  ;  _  S' 

(.  »t  r 

Lh“  " m 

LmL i _4 •  M 
”• :  _** .. 
LmS 1^4. M 

L  H  O  1  .J  *» 4-1 

LmS  I  3  4:."  ■ 
CAE  1 .4tu 

cast  :-i-' ' 

LhlLl-  1 

C.  > ■> E  J  *  ■)■" 


END  UF  SUBROUTINE  F LNDEL 


1 


START  ijF  SUBROUTINE  ACTPEL 


UmLlULm  f  1  UNz>  b t H  t.  [  rlfc.  SmME 


L.'ESLP:  I  EEL'  IN  SOfcRuUT  INt  PLNDEL 


SUbFvDuT  I  NE  M  l_  T  DEL  i  7  PNSAC  ,  A  ,  FRF  RhI  ,  hLI  lDv  ,  ALOF  LG,CSTFLT  , 
TOT  CHG  ,  3UMCST  ,  OU  TF'UT  , LST  DEL ,  DELL  AG  ,STCGST,TGDArS,STDAr  , 
F'E AL  r  RNSAC  (  325 , 20  )  ,  F'RFRAT  ,  CS  T FL  T  (  1 OOu ,  2  >  ,  IOTCHG,SUMCST 
?.  ,  10.  ,  5  T COST  ,  TODA  Y  S  ,  mL  T  F'RF 
IInTEsc-R  A,ALTLL' i  ,  mLl'FLG  ,  r  uUAT  D  ,  ST  Dm  i  ,  DELLAG 
f  lhl  F  RFP  A  Y  ,  i_  I  DDAT  ,  COST  ,  NET  PAY 
T  R! <5 AC  <  A  ,  15)  -7 PNSAC  <  A-  1,15) 

I  R!  JSAC  A  ,  16  )  =  T RNSAC  <  A—  1  ,  1  ) 

T  F'  (M  zi  m  C  (A,  IS)  =7  RNSAC  (  A  —  1  ,  18) 

TEN SAC ( A , 19) =TRNSAC (A , 4) 

DO  90  1  -  1  , FLOAT D 

IF  iCSTFLTd  ,  1  i  .  LE.  T  RNSAC  (A,  13)  )  THEN 

TRNSAC (A, 1 7  >  =T  RNSAC vA, 17) +CSTFLT  (1,2) 

END  IF 
:  CONTINUE 

T  F.N  3H'_  ( A  ,  17)  =  TRNSAC  (  A  ,  17)  +S  TcuS  T 
OUTPUT  (A,  1  )  =OUTF'UT  (A-l  ,  1  ) 

L I ODAT  =  TRNSAC ( A , 3) * TRNSAC (A ,4) 

IF ( LI ODAT . GT. OUT  PUT  kA-1 , 10)  )  THEN 
L  I  ODAT =GU  Tr:,UT  (A-l  ,  1 '  ) 

END  IF 
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hLQFLG= 1 
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END  IF 
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END  IF 
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CDSTPD=COST -TRNSAC (A, 18) *COST 
F  RFF  AY =NETF AY-CQSTPD 
IF (ALOFLG.EQ.O)  THEN 
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END  IF 
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SUNOS  T -=SUMCST  +COST 
)  -  I  NT  <  I' ubH  v  S  +  STDAY  >  +  DEL  LAG 

POLLS  UP  ALL  DATA  FOP  LmST  IFmNSACTION.  (IT  IS  t 
UNLII  ELY  THAT  AN  ACTUAL  DELIVERY  WOULD  PE  THE  LAS 
TRANSACTION.  HOWEVER,  IT  MAY  HAF 1 EN  IF  SOMEONE  L 
TO  PUN  A  COMPLEIED  CON  I  P>»C  T  TO  SEE  WHAT  Tut  CONiF 
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•  #*«••***»«»*««*«**#»»*#*♦***»»»».•»•*«•***••«  +  *•*•*******♦#**  I  ■-  ; 

L  •_•  7  i  •:••  r  =  i  ,nm  i  fan  : 
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■  -  i  r  «  i  -  3  ,  b  .•  ;  >  CA:  : 
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Ji-j  I  hHi_  I  UR  {  N-.  cd1  HEN  T  K.h  TIG. 


-CC’GDEL  > 


CAl  1  7  "  A1. 
Ch  £  1  760‘ 
Cm--.  1  73  1* 
Ch-  1  7.3-\ 


END  OF  SUBROUTINE  INVEST 


LhE  1  7sr_.;. 
CAS  1  7  S  c 
ChS  1  J  c;:  / 
ChS 13380 


**♦**«♦*<%*  START  OF  SUBROUTINE  PNTQUT  Cm5;7'9'.T 

CmS 1 3  9 1 C 

;L Rf-  CU  1  NE  F  N  TOUT  <  T  RNFlG  %  CS  TF  LG  ,  F  F:GF  LG  .  TF  NS hC  ,  EL”iENT  ,  FL  X Fi_G  ,  NM 7F  ANChS  1  7  A  _  i 
,  NriL  5  I  L  ,  S  T  L'm  T  E  ,  COS  T  El  ,  F  KFRh  1  ,  S  T  COG  T  ,  T  u  T  F  »  D ,  T  0  T  L u G , OU  T F  UT , TuF  R OF  ,  lh^I  7  ^  3  7 


F  R.GF  IT,  F  RGRTE  ,  Rh  TIG,  F'RGLAG  ,  DELLhG  ,  LSTDEL  ,  T  I  T  LE  .  DAT K  EY  ,  lFL6  ) 
F  E  nL  T  RNdmL  ’  7  LL  ,  CO  '  ,  EL.  HE  NT  {  1  >J  ,  5  ,  F  RFR  AT  ,  1  u  i  _Uz  ,  OL'T  F  ijT  ■  ,  1  O)  , 

uP  rjF  ,Fh  OF  I  T  4  F  F ’bP  T  E  «  R  A  T  I  0  ,  1  u  T  F  t  D  ,  □  1  l  l  '  3  T 
I  N  T  EGER  ^‘RGFLG  ,  NNCST L  ,  S  T  uh  TE  ,  F'R GLhb  ,  L  El.LAG>  ,  LSTDEL  ,  F‘G  ,  NMTKhN 
l>hRhlTER  ♦D  TRNFLG  ,  C3TFLG  ,  FL  XFLG 
l  hhKhL  i  E R ♦  u u  CD^l  EL  1  1  v  ,  / 

C H -»R  AT  T £R  *10  h uNA  ( 3  )  ,  FvONB  v  1  u  ;  ,  F  GWC  v  1  1  ;  ,  RGWu  «  3)  ,  RQwE  '  I  '7  ) 
lHm1  h1..  i  LK*  j'J  TITLE 
LOG  I Chu* 1  Cl 

Integer  mum*  io) , daty  e> 

DATA  LC  /  ZOC  / 

LN  ■  'JTj  I  7  ~  1  ) 

F  ...F  HA  T  (  /  ) 

r  uKMF Tv  /  ) 


►  *  *  *  ^  *  f  *  H 


■#■■*■*-**■*■■*  H 


EST  hBL  I  bhES  HEAD  I  NGo  FOR  IF  mN^ml  T  I  UN  FlFGRT 

t-  *  '*•#*♦  *  *  *  *  *  *  t  *  ♦  t  ♦*-**-**■♦♦**  t  »  * 


LHb 1 7 r40 
CmS  1  3M5.J 
CMS  i  3mc.O 
CAS  1  .'M7  (.> 
Cm3  1  39Qu 
cms  1 

CMS  1  4\".'0 
L m3  ]  4'.1 1  i ,j 
CM3  1 4020 
LAS  1  407u 
Cm3  1 4  040 
f  m2  1  4  05'. . 


Cm  5  1  4030. 
Cm2  1 40  Mo 
CM3  14  1 Ov 


3  OWA  ■'.!)=  Dm  fE  / 

F  Oi-JM  1  2  )  —  TOT  AL 
F  Cwh  <  3  /  -  F'A  I  D 
F  0 W4  i  4 ; =  COST 
ROWA  ■  5  >  =  TOTAL' 

F  0  W  A  <3  i  =  F'  R  0  F  1  T 
F  uwh i 7) =  UNRE I M 
F  Own  '&.■  =  '  UNL  1  0 
ROWE?  '  1  7  -  1  R h N S A C T 
ROWE '2 ) -  INCURRED 
R  0  W  B < 3 i =  INCURRED 
R’UWB  i.  4  ■  =  F'R  Ub  F  A  i' 

F  2WB  5  )  =  F'A  ID  AT 
FOWB (6) = 'COST 
ROWS (7) = 'PAID  AT 
RUWB (8) =  TOTAL ' 
FOWB <9; =  RAID 
RQWB  i  10)  —  F'RUbF  t  -.4 
I  -  owe  i  1  >  =  '  CODE  ' 

F  1  j  ’.*J  C  '  2  )  —  L  0  5  T 
R  ''WC  (3)  =  FLOAT 
F  i.  WO  '4)=  C  OST 
M  JWO  '  I;  !  *  F  ELD 
F-_WC  '  CM  =  I.'EL  IO'EF  1  ■ 
F  uwt  i  ~  —  REIMBIJRS 
R  ijWO  DELI  Vt  R  T 

A JWC  U9,  =  REVENUE 


LhEHU  tj 
LAS  14  1 30 
LHb  14  1  70' 
C  A  S  1  4  1  4  ij 
LHC  1  4  1  0".' 

Cm3  1 4 1*0 
CAE  14  1  70. 
CAS  1 4 ; 0v 
C Ai i 4 i mv 
Cm3  1  4 
CAS  1421  C< 
CAS  1  4  2  21.1 
LhEi-j  2  7 1  ■ 
LhC  1  4  _  41.1 
Cm3 l 4_DO 
CAS  1  4  2a0< 
CAS  1 4  2  ~ '  1 
CAS  1 4^Su 
CAS  1  4 m  4 
CAS  1  4  3 ’ 
CAS  14  7  1'. 
C  m  S  1  4  7 .  1 
L MSI  4  77  ■ 
CAS  1  4  7  4-.' 
CMS  1  4  ;  S'  > 
C  MS  1  4 
CMS  1  4  7 
CAS  1  4  73'.' 


R  OWL  (  10;  =  C 05 T 
5  OWC '11;=  Fhi MEN T 3 
5  uwD ( 1 > -  v  4+5 1 
POWD !  2 ;  =  ( 6  +  7  ) 

E0WDi7)=  (3-6) 

DO  a 5 '0  1  =  1,10 

ROWE  11;=  (  DOLLARS  ; 

NUM (  I  >  =  I 
CENT INUE 

FORMAT ( T 43 ,  DEPARTMENT  OF  DEFENSE  CONTRACT  FINANCING  MODEL  ; 

FORMAT (T51,  VERSION  DATED  FEBRUARY  1,  IRS 7  ; 

FORMAT ( T57 ,  TRANSACTION  REPORT  ; 

FORMAT ( T  4 1  ,A50) 

FORMAT  '  ,  T  1 3  ,  ’  ***  UNLIQUIDATED  PROGRESS  FAr'MENTS  WOULD  HA'.  E 

■  N  NEghTIVE  WHERE  (.i  AFF  EhRS  IN  COLUMN  1  <_» .  ***  i 

FORMAT  (  *  ,  T 1 3 ,  *  *  +  *  CHECK  PRICES  OF  DELIVERhELES  TO  E 

RE  THERE  IS  NO  -FRONT  LOADING-.  *** ' ) 

CGUNT3=34 

CONTROLS  F'RINT  ROUTINE  WHEN  ERRORS  ARE  DETELIED  IN  THE 
EDIT  SUBROUTINE. 

*-*  +  -*--»#'  +  -*-**iMr-lMr-*-*  +  +  **-rt*-«'*  +  **"****-*-»*-*-*-**-*-**ir*lH»'lMHH»-1,**-',  *  ♦»*♦♦*** 

IF  (Dr-,  H  EV.GT.O;  THEN 
GO  TO  1 850 
END  IF 

♦  -**-*--*-*--*-*-*--*-**#-**-*-*-#-*--fr  +  -+-#-*  +  *-**  +  *-**-  +  *'****-*-*'***-*--#-*-*-t--,--«-**'*-*-»  *■*■♦-*-»♦*■* 

PRINTS  TRANSACTION  REPORT. 

IF  1  7  P:NF  LG .  Eg  .  t  E3  1  THEN 
DO  10  70  1  =  1, NM  TRAN 

IF (COUNTS. EO. 34)  THEN 
F  G=F  G+ 1 

WRITE (7 ,FMT=  (A1 )  )  CO 

FORMAT (  /  ,T112,A,TI13,I2) 

FORMAT!  /  ,A> 

WRITE (2,480) PG 
WRITE  (  2 , 1  i.'O ) 

WR ITE (2 , 1 10; 

WRITE (2, 120) 

WR I TE ( 2 , 30 ) 

WRITE (2, 121)  TITLE 
WRITE (2,*) 

FORMAT <  '  , T18, I  1 ,T29, 1 1 ,740, I  1 , T  5 1 , 1 1 ,T62 , I  1 , T73 , I  1 , T84 , I  1  , T  95 

,  TIC 6, I  1,1117,12) 

WR I  7  E  <  2 , SCO )  ( NUM  >1  )  ,  1  =1,10) 

F  ORMA M  ’  ,T2,A,T16,A, T3S , A , T  62 , A , T7 1 , A , T8 1 , A , T 1 04 , A , T 1 1 


LHC  14  ;  7' 
C  r.  5  1  44,.M 
Lrol  4  4  1  ' 
CAS  1 4  4 _ 1 
L f  i -  1  4 4  3\ 
L  fa  —  i  4 

lhc144s' 
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M  rr  7  E  E  E  E  !_  H  5  1  4  '  ^ 

i.--s  1  4  ■_  ; 

TO  E f  1 S c  1  4 5 4 


L  h:  ! 4^1 


[  "ft-**-**--**-**-*--* 


WR I TE ( 2 , 840 ;  ( ROWA  < F  )  , K  = 1,8) 

FORMAT!'  '  ,T1  , A , T 1 4 , A , 7 3a , A , T 47 , A , T59 , A , 7 7 1  ,A,TB1  ,A,T9 

T  1 1  j  4  ,  A  ,  T  1  1  ,  A  ) 

FORMhT  !  '  ,  1  2  ,  A  ,  T  1  fr  ,  A  ,  T  27  ,  A  ,  T3E  ,  A  ,  7  49  ,  A  ,  T58  ,  A  ,  T  t-9  ,  A  ,  7  80  ,  A 

r-2,H,TK'4,A,  T  1  1  3  ,  A ; 

WR  I  1  E  '  2 , 6 6V )  ! ROWB  ! F )  , t  = 1  , 1 0 ) 

WRITE (2,890)  (ROWC N  ; ,F =1 , 1 1 ) 

FORMAT!  '  ,T71 , A , T93 , A, T 1 04 , A ) 

WRITE! 2,920)  ROWD ( 1 ) ,RUWD (2) ,ROWD ( 3) 

FORMAT  !  ,  T  1  4  ,  A  ,  T25  ,  A  ,  T36  ,  A  ,  T  4  7  ,  A  ,  T  56  ,  A  ,  T *,9  ,  a  ,  I  6'.'  ,h,  1 

T 1 02 , A , T 1 13, A) 

WR  I  F  b  !  2 , 940 )  <  ROWE  !  F  )  0=1,  1  ; 

COUNT  3  =  0 


LHil4fcW, 

ChS  1  4  7>.'l 
CAS  1  4  7  1 1 
L  AS  i  4  72'-'. 
ChS  1  4  73'. 
ChS  14  7  4'. 
ChS  1  4~5'. 
lh;  1  4  ’s'. 
LhS  14  *7 

Ch  S  1  4  7  8'. 
L  ,4  b  1  4  -  ' . 

ChS  i  4cj-.nl 
,  T  95 ,  I  1 ChS 1481l 
C  A  3  1  4  8  _ 1 
CAS  14b  ;>. 
,  T  1  1 5  ,  h'-_AS  1  494! 

LhS  1  4  85'. 
Lh’b  1  4S6! 
T  9 3  ,  A  ,  CAS  1  487''. 

CAS  i  4681. 
T  80,  A,  CAS 

CAs  1  4  +  '.'-. 
LhS 1 49 1  ■ 
ChS 1 4 42! 
LhS 1 4  = .  ■ 
ChS 14  •  4  - 
,191  ,  A,  LhS  1  4  -•  - 
L.  H  1  4  '  ■ 


I'M1'  '  1  IE  1  1  ,  L<_<  1 

LuD  IF 

i-  '’1m  I  v  ,16,  ,  1  1  .  1  \  ,  I  1  •  :■  ,  1  r  ,  I  1 '  • ,  1  A  ,  I  1  1  ,  1  >  ,  i  1  •.  ,  1  *  , 

I  1  ,  1  *  .  I  1  v  ,  1  a  ,  I  1  1  ■■  ,  1  f  ,  I  ;  ■  i ,  1  *  ,  I  1  m  ,  1  X  ,  I  1  u  / 

:  u  i-.-4o  j  --  i  ,  i 

_  -Ll_  h  UoND  s  uU  1  F  i J  F  <  I  ,  j  i  i 

uuN :  i  nub 


UM  :  1  0" 

Lmd  1  OuO1 


wF  I  T£  •  2 , 990 ,  I  NT  <  TRN5AC  '  I  ,2>  )  ,  1  NT  '  TFN5AC  <  I  ,  1  >  >  ,  I  NT  •  OUTPUT  <1,1  ,  INTCmSIO .  s 

•  uult-  u)T  a  ,  CAS  If. <7 

<  <  .  ;  NT  ■  OUTPUT  (1,3)  )  , INT (OUTPUT <1 .4 ■  ;  ,INf  .  uj  T  P  ij  T  I  .  0  ,  ,  ,  IfjT  (OUTPUT  <  CA615<  •  = 
l.s<  1  ,  i  NT  <  QU  i  F  uT  1  I  ,/’)),  1  NT  1  OUT  E  (J  I  i  1 , 8  >  i  ,  I  NT  i UU  T PuT  1  I  ,  7  1  /  ,  1  NT  <  OUT  F  uCAE  1  5'.'^ 
'  <  1  ,  lu:  .<  CAS  12  1'.' 

COUNT  3-l  UUNT3+  1  CAS  1  GO  i 

!'ONT  jr-4UE  C  A  B.  I  0  1  - 

1  r  >  ur  :_G.  ED.  1  )  THEN  L  h  to  i  3  i  3 

w  R  i  1 E  1  2  i  2  0  )  C  ■  1 5  1  2  1  4 

fjf-  I  T£  ,2, 122)  _*•-=.  J  f  i  L 

wR I T  E  <  2 , 1 23 )  C  -<  6  1  0  1  o 

to. N DIF  Lm:>1  j]  / 

E  N D  I F  Lhs1713 

u m i.  1  i  I™' 

ESTABLISHES  HEADINGS  FOP  m!(mL  r  T  IC-iL  RETORT.  Cr-olC- 


L- 


FORMAT ( 

F  Uh  Mm  r  <, 

FORMAT ( 

F  uKT'ih  T  < 
f ui-  i’V,  r  i 

FOR,  M  '  l 

f  of  m i—*  r  ( 

F mm  MAT  i, 
F  u K  MAT  ( 
Format ( 

-  »  '  > 

F  CKMAT ( 
/  * 

FORMAT ( 
F  up Mm T  ( 
/  ,  * 

FOP MAT ( 
F  ui-OTAT  ( 

/  Tto8  ,  ■  * 

FOP MAT ( 
FORMAT ( 

'  T  08  ,  '  * 

FORMAT ( 

♦  ♦  Ik  ♦ 

FORMAT ( 
FORMAT ( 
FORMAT  I. 
F OR Mm 7 ( 
P  OF  Mm  i  ( 

f  ::  i 

I-  Uf-I 


T57, ’  ANALYTICAL  REFuRT  / 

'  CDNTRhOT  FRICE  ,T 31, FI 0.2) 

'  CONTRACT  START  DATE  . T35,Ito> 

FiViRT  UP  LOST  OF  LONTRi-w  r  ,  T  3  1  ,  F  1  >.< .  L  ) 

D  A  T  ri  FILE  F  P  u  F  I  T  F  E  R  u  E  N  T  n  u  E  ,  T  3  to  ,  F  0, .  _  ) 
Lul  9  .  !  ED  r  F  up  IT  1  EF  CBN  i  AGE  ,  T  3o  ,  F  0 .  *_  / 
FRuJECT  TITLE  .T18.A50/ 

TOT  hL  CONT PAL T OR  LOST  , T  3 1 , F 1 o. 2 ) 

'-*♦**■  PROGRESS  FA  y  ME  NT  RATE  DAT  A*  '  ) 
PROGRESS  PArMENT  RATE ' ,T35, '  *' ,T38,F6.. 


Lr-<: 

Lm: 


1  0_4 


T  41 


L-  M  H 

Cm  5 
l-Ato 
CAS 
L  m  S 


PROGRESS  FAtMENT  RATE  ,T35,'  *  , T 38 , F6 . 2 , T40 . 


,  T  sc  , 


THESE  VALUES  REFLECT  CONFUTATIONS 
'  ORDINARY  LIQUIDATION  Rh  rE  , T35, 
ORDINARY  LI DO  I  DAT  I ON  RATE  , T35, 
BhSED  ON  OVEPL ICUI DAT  ION  OF 
ALTERNATE  LIQUIDATION  RATE  , T35,' 

•  ALTERNATE  LIQUIDATION  RATE  , TDD , 
PROGRESS  PAYMENTS.  SEE  NOTE  AT 
CONTRACTOR  INVESTMENT  RATIO  , T35, 
CONTRACTOR  INVESTMENT  RATIO', T 35 , 
END  OF  TRANSACTION  REPORT. 

PROGRESS  PAYMENT  LAG  TIME  IN  DAYS 
DELIVERY  PAYMENT  LAG  T I  MB  IN  DAyS 
DATE  OF  FINAL  DELIVER'!  ,  T40.I6) 

P  P'UGREli-S  F  m  r  MEN  i  RhT  L  Cut  IF  O  1  B  [.■  B-  t 
FF.OGRESS  PArMENT  RATE  INPUT  By  l 


*  > 

*  ,T38,Ro.2 

*  '  ,  T  3  8  ,  F  5 . 2 

*  ) 

*  ,  T  3  3  ,  F  &  . 

*  ’  ,  T38  ,  F  t, . 

*  •  ) 

'  *',T39,FD 
*  , T39.F5 

*  ) 

*  » ■****■» 

,T41 , 13) 
,741,13/ 

FRuuFmN  , 1 
BP  INTO  FRO 


,  T  4  C  , 

,  T  40  ,  ' 

2  ,  T  4  0  . 
2, T45, 

.2,1 40 
. 2 , T45 


*  ,TC 

+  '  / 


*  '  ) 

* 


dt_M 

Cm 

Lh; 
Lh: 
LAi 
C  A  5 


*****■***  +  ■•  «**...•• 
Lh: 

C  A! 

Cm: 


04  ,  F  to.  . 
uP  mM  , 


LT  (  T  3  1  ,  C'Ub  T  RLE  MEN  T  DATA  ) 

<-,!<.  Tt  ,  t  to  ,  NhME  ,  T  _8  ,  L<Nr  A  I  D  CDS  T  ,14  1,  7.P  m  II/  ,  T  46  ,  P'm  I  D 

.  Tto'C,  BCGIBILITY  ) 

<>  ,  i  ■  [  ^  T  ,  i/HT  S  F  L.UAT  ,  T  48  ,  I'm  t  5  F  LOn  T  ’  ,  T  to'./ ,  f  Rl*UFT.  dO  T  m  *  /MB  f/ 


Lip 

1 . 

l .  H  - 
I..A‘; 

l  m  ■ 


15  28 

lO^F 

i  c  :<'< 
i  c :  i 

.■is; : 

:  1  o :  4 


S  i  o,  V  ' 


lie  4  I 
,  1  1 
)  1  04. 

■  i  0  4  ; 
1104  4 
.104  0 
10  4  to 
,  1  .* 

,  1  04. r 


1 


< ,  T  3  1  ,  13  ,  i  4  1  .  F  0 .  1  ,  1  0  1  ,  I  3  .  1  to- 


•I  i  <  ')!/  1 


FORMAT  i  •  ' , 12,T6,A20,T31 , 13.T41 ,F5. 1 ,T51 , 12, TftO, '  PAID  COST  ‘  ) 

FORMAT  (  '  .  12, T6,  A20.T31  ,  I3,T60,  INCURRED  COST  ) 

FORMAT  <.  '  ,  I2,T6,A20,T51  ,  I3,T60,  '  INCURRED  COST  ) 

FORMAT  >  T35,  ■♦**•>•**•*-«■***  ) 

♦*♦»***  '  > 

F  OR MAT < T 1 23 .  R  ACE  , T 1 28 , I  3 ) 

FORMAT <•  FROFIT  PAID  TO  CONTRACTOR ' ,T31 ,F 10. 2) 

F ORMA  T  (  T  35  ,  '  *  '  ,  T 45  ,  ■*  '  ) 

F GRMAT ( T35 ,  * '  , T 45 ,  '  *  '  ,  T 68 ,  *  '  ,  T  1 08  ,  *  ’  ) 

WRITE (2,FMT=- (Al) ')  CC 


PRINTS  SUMMARY  DATA  IN  ANALYTICAL  REPORT. 


PG=PG+1 


L  A  b  1  5  5  t 
ChS  i  560 
LAS  156  1 


Lh;  1  _  6 -*  1  ■ 
ChS  i  5  c 
CAS  1  5ft6(.> 
CAS  1 5&70 
CAS  15680 
CAS 156S0 
CAS 15700 
C  h  S  1  5  7  1  (.> 
CAS  1 5  720 
CAS  1 57  30 


WRITE (2, 480)  PG 
WRITERS, 30 ) 

WR  I  T  E  (  2 , 1 00  ) 

WRITE (2, 1 10) 

WRI TE (2,200) 

WRITE (2,30 > 

WRITE (2,260)  TITLE 
WRITE (2,30) 

WRITE (2,330) 

WRITE v 2, 210)  T OTP YD 
WRITE (2,270)  TOTCOS 
WRITE  (2,490)  TOF'ROF 
WRITE (2, 230)  STCOST 
WRI  T  8(2,220)  STDATE 
F  RFRAT —FRF  RA  T  ♦  1  uu 
PROF  I T=PR0FIT*100 
WRITE (2,240)  F RFRAT 
WRITE (2,250)  PROFIT 
WRI IE (2, 330) 

WRITE (2,20) 

WRI TE (2,280) 

WRITE (2,20) 

PROP  T  E=PRGRTE* 1 00 
RAT  I 0=RAT 1 0* 1 00 


CAS  15  7  4  <:> 
CAS  15  7  50 
Cfij  1  5”  o1-' 
C  As  1  57  7  (.’ 
CAS  1  5780 
CAS  1 5790 
CAS  1 5800 
CAS  1 5d 1 O 
ChS 1 5320 
CAS  1  583(3 
CAS  1 5540 
CAS  1 5850 
Cm  5  1 5-36A 
C*  s  15 

t-  *-(  —  1  wC  -'1,1 

CAS  1  589  0 
CAS  1 5  900 
CAS  159  1 
CAS  15920 
Ca5  1  59  3'.’ 
CAS  1  594>.i 
CAS  1 595a 
CAS  1  596  (3 
CAS  15970 
CAS  15930 


PRINTS  PROGRESS  PAYMENT  RATE,  ORDINARY  AND  ALTERNATE 
LIQUIDATION  RATES,  AND  CONTRACTOR  INVESTMENT  RATIO. 
ALSO  PRINTS  WARNING  IF  FLEX  RATE  IS  COMPUTED  BASED  ON 
QVERL I DU I  DAT  I ON  OP  PROGRESS  PAYMENTS. 


CAS1599'.- 
CAS 1 6000 
CAS  1 60 1 0 
CAS  16020 
CAS  1  603'.' 


I F  < LFLG . EQ .  1 )  THEN 
WRITE (2,475) 

WR  I  TE  (  2 , 295 )  F'RGRTE 
WRITE (2,505) 

WRITE  (2,305)  F'RGRTE 
WF ITE (2,505) 

WRI TE (2, 315)  TRNShC (NMTRhN, 19) *luu 
WF ITE (2,505) 

WRITE (2, 325)  RATIO 
WF I TE (2,475) 

ELbE 

WRITE (2, 470) 

WR  I  TE  (  2  ,  29u  )  F'RGRTE 
WR  I  I  E  (  2 , 5'.iO  ) 

WR  I  TE  1  —  ,  300  )  F  RGF; T  E 


CAS  1  s'.'hu 
CAS  1  6'  '5<-‘ 
CAS  1 6060 
CAS  1  6'.'70 
CAS  16030 
ChS)  lev1-'  1 
CAS  1  6  1 1 
Che l 6  1  l 1 

LHi  1  ft  1 

ChS>  1  ft  1  ' 1  ■ 
ChS  1  ft  1  4.  - 
ChS  1  -  1  5'.' 
LAS  1  ft  1  ft' 
lmS  1-. 
ChS  1  ft.  1).'.' 


WF I TE i 2 , 500) 

WR  I  TE  ( 2  ,  3 1 <_> )  TRNShC  1  NM  i  RAN  ,  1  9  /  *  2  00 
NR i  I  E  (  2  , 500 ) 
wR I  r E  >  2 , 320 )  Rh T IQ 
W" I  IE  i .2 , 470 / 

END  IF 
wP  IT  E ( 2 ,  30  i 
c/R  1 1  E  1  2 , 3  30  > 

IF  ‘  i-  E  LG.  EQ.  0 )  THEN 

FORMAT <-  ALL  PROGRESS  PA  r'MENTS  INPUT  ARE  ACTUAL.-) 

WR  I  TE  (  2 , 5  1  0  ) 

END  IF 

PRINTS  COST  ELEMENT  DATA. 

WRITE (2, 330) 

WRITE (2,20) 

WRITE (2,400) 

WRITE (2,410) 

WRITE (2, 420) 

WRITE (2,330) 

DO  1 320  1  =  1, NMCS  TL 

IF  !.  EL  ME  NT  <  I  ,  1  )  .  ED .  1  .  AND .  ELMENT  (  I  ,  2 )  .  GE .  0 )  THEN 
WF I TE ( 2 , 450 )  I , LOS  T  EL ( I , 1 )  , IN  I  < ELMENT (1,2/  > 

END  IF 

IF (ELMENT  (  I  ,  1  )  .  ED.  1  . AND. ELMENT ( 1,2)  . LT. O)  THEN 
Wto  I  TE  '  — '  ,  4  to1.' )  I  ,  LOST  EL  (1,1)  ,  I  N  T  <  E.LMENT  (  1  ,  2  i  : 

END  IF 

ELMENT  (1,3/  =E  LIT  ENT  (  I  ,  3)  *100 
IF (ELMENT ( I , 1 ) .EQ. 2)  THEN 

WRITE  (2,440)  I , COSTEL (1,1)  , I  NT  (ELMENT  (1,2/  /  , ELMENT  (1,3), 
TINT (ELMENT (1,4)) 

END  IF 

IF (ELMENT ( I , 1) . ED. 3)  THEN 

WRITE (2,430)  I , COSTEL (1,1), INT (ELMENT (1,2)) , ELMENT (1,3) , 
TINT (ELMENT (1,4)) 

END  IF 


WR I TE ( 2 , 390 ) FR6RTE 
ELSE 

WR I TE ( 2 , 380 ) F  RGRTE 
END  IF 
WRITE (2,330) 

+  *■**■**#  +  ■*■*  *■*■**■*■**■-*  +  ***+***-**■»■**■****■**  +  +  *  +  *  +  ****  -*■#•■*-*#**#*■*•*#*•■)►* 

PRINTS  LOST  RECAP  REPORT. 

IF  (DAI)  E't  .EG1.  1  .  OF  .  DAT  I  E  r  .  EQ .  3  /  I  HE  N 
l3TFLG=  YES' 
tHL  IF 

It-  |-  2  S  T  FLG .  ED .  YES  /  THEN 
1  ( -  N  OmC 1  1  ,  14/ - T  FNbuL (  1 , 14) +  5 I  LOST 
COUNT 3=3fi> 

Du  ^19<  '  1  =  1.  NM  TRAN 

IF  (COUNT  3. ED.  36)  THEN 


Lh:  1  =  1  - 
L-Hto  1  to  E  ’ . 1 

ChF 1 1 
LhS 1  to  ^  ^ 
L  h  B  1  to  2  3 1 
Ct-1 3  1  to  ^  4 
CHto 1  to  5 ' 
CAS  1  to  Jo 
0  A  3  1  to  2  7 
CAS  1 6L6 
CnSlto29 
CAS  1  6  3'./ 
C  A  5  1  to  3  1 
CAS  1  to  32 
C  A  S  1  to  3  3 
CAS  IE 34 
ChS 1  to  35 
C  A  S  1  to  3  6 
C  A  to- 1  to  3  7 
CAS  1 6  3  3 
L  m  to  1  to  3  9 
CAS  1  to  4 
CAE  1  -=4  1 
CASlto4_ 
Cm to  1  to 4  3 
CAS  1 to44 
UmS 1 fc45 
CAS  1*4.3 
C  m  to  1  to  4 
CAS  1 *43 
C  A  S  1  to  4  - 
CAS  1 to50 
LMtolto51 
C  m  5  1  to  5  2 
CAb 1 to53 
C  A  S  1  to  5  4 
C  AS  1 fa55 


CONTINUE 

ChS  1  6C6< 

WRITE (2,330) 

CAS  1  657< 

WR  I  TE  (  2 , 34>.t  / 

PRC-LAG 

ChS  1  6to3( 

wR  1 T  E  ( 2  ,  .'So ) 

DELLAG 

ChS 1 6 Cv 

WR I TE ( 2 , 360 ) 

LSTDEL 

CAS  1  660» 

WRITE (2,20) 

CAS  1 toto 1 ' 

IF (FLXFLG.EQ. 

YES')  THEN 

C  A  S  1 1>  6  Z  ‘ 

CAS  1 6  <to  3 
ChS 1 6o4 
C  A  S  1  to  to  5 
CAS  1 66to 

CAS  1  to to 
ChS 1  to to b 
L  hS  1  6to'~ 
Lh  to  1  to  ■  '  ‘ 

L  H  b  1  to  '  i 
LH  1  to  2 

ChSI to  ’  ' 

C  H  b  1  to'  4 
C  /  ( b  1  to  L 
Cm:-  1  - 
I  ♦  -i  (-  i  to 
C  H  S  1  to  ’  >1  ‘ 


2110 

2120 


C0UNT3=0  CAS  1  o 

WE  I TE ( 2 , FMT= '  (A  1 >  '  /  CC  ChdIo 

F'Q-PG+l  ChS  1  to 

WR  I  I'E  (  2 , 4S3'  )  F  G  ChSIc 

F OEHAT  <154,  RECAP  OF  COST  STATEMENT  )  CAslo 

FORMAT (T36, •  NOTE:  TOTAL  FOR  FIRST  COST  STATEMENT  INCLUDES  SThET  UCASlo 
‘F  LOb  f  )  CAblc 

WRITE (2, 100)  ChS  16 

WR I TE ( 2 , 1 10)  CAS  1 6 

WRITE <2, 1900)  CAS  16 

WRITE  (2, 1905)  CASIg 

WRITE (2,30)  CASIg 

WRI TE (2, 121 )  TITLE  CASIg 

WRITE (2,30)  CASIg 

FORMAT (  , T2 ,  DATE  ,T17,  '  #1 ' ,T28,  '  #2  ,T39,  #7  ,T50,  #4 '  , T6 1 , CAS  1 6 

,3  #5 ' , T72 , '  #6 ' , TS3 ,  #7' ,T95, '  #8',T105,'  #9',T114,'  #10' ,T122,  CASIg 

/  T  OTAL '  )  CAS  1 g 

WRITE (2,2060)  ChS Is 

END  IF  CASIg 

FORMAT ( '  '  ,  IX  ,  16, 1 X , 1 1  ( 1 10, IX) )  CASIg 

FORMAT (  '  ',1X,'  TOTAL '  ,  1  X  ,  1  1  (  I  10, IX)  )  CASIg 

IF (TRNSAC ( I , 1 ) . EQ. 3)  THEN  CA517 

WRITE (2,21 10)  I NT (TRNSAC ( I ,2)  )  , I  NT (TRNSAC (1,3))  , I  NT (TRNSAC ( I , CAS  1  - 
-4)  >  , INT (TRNSAC ( I ,5)  )  , I NT (TRNSAC (1,6)  >  , I NT (TRNSAC ( 1 , 7 )  )  , I NT (TRNSAC (CAS  17 
■  I  ,8)  )  , I NT (TRNSAC (1,9))  ,  INT (TRNSAC (1,10)), INT  (TRNSAC ( I , 1 1 )  )  , INT (TKNChSIV 
•SAC (1,12)), INT (TRNSAC (1,14))  CA517 

C0UNT3=C0UNT3+1  CAS  17 

END  1 F  CAS  1  7 

CONTINUE  ChS 17 

WRITE (2,20)  ChS 17 

WRITE (2,2120) INT (ELMENT ( 1 ,5) ) , INT (ELMENT (2,5) ) , INT i ELMENT (  CAS1 7 


, T 1 7 ,  # 1 ' , T28 ,  #2  , T39 ,  #3  ,T50,  #4',T6l 

#7 ' , T95 ,  #8 ' , T 105 ,  #9',T114,'  #10',T122, 


CASIg:'-'" 
CAg  1  GG>.>'.' 
ChS  1  bb  1 1 
CAS  1 cS 2  0 
C  A  g  2  g6  T 1 . ' 
UCh5  1  gS4<  ■’ 
CAg 1 oG Sc 
ChS  1  GSg'.i 
CAS  1 fcb 7c 
CAS  1 68S0 
CAS  1  Gb9>.-' 
CAS  1 a9cC 
CAS  1 g9 1 0 
CAS  1 6920 
, CAg 16  9  3c 
CAS  1 g940 
CAS  1 o950 
CAS  1 g9gc 
CAg  1  o9  7  " 
CAS  16980 
CAS  1  07  9'.i 
CAS  1 / ccc 
, CAS  1  '  c 1 0 


CA5 1 7 i 
LHbl  <■  ' 

CAS  1 7 ' 
C  H  s  1  7 1 
Chg 1 7 ' 
CAS  1  7'. 


-7,5)  )  , INT (ELMENT (4,5)  )  , INT (ELMENT (5,5)  )  , INT (ELMENT (6,5)  )  , I NT  < ELMENCA5 1 7  I cO 
T (7,5)  )  , INT (ELMENT (8,5)  ), INT  (ELMENT (9,5)  )  ,  INT (ELMENT ( 10,5)  )  , I NT ( TOCnS 1 7 1 1 0 
•  T COS  )  ChS  1712''.' 

END  IF  CAS  17  1 30 


FEINTS  DELIVERY  SUMMARY. 

IF ( DATF EY. EQ. 2. OR. DATFEY. EQ. 3)  THEN 
C0UNT3=36 

DO  2200  1  =  1, NMT  RAN 

IF (C0UNT3.EQ. 36)  THEN 
COUNT 3=0 

WRITE (2,FMT= ' (Al ) ' )  CC 
PG=FG+  1 

WRITE <2, 480)  PG 
WRITE (2, 100) 

WRITE (2, 1 10) 

WRITE (2,2300) 

WRITE (2,30) 

WRITE (2, 121)  TITLE 
WRI FE (2,30) 

WRITE (2,2310) 

WRITE (2,2320) 

END  IF 

IF ( TRNSAC ( I , 1 ) . EO. 4. OR . TRNSAC (1,1). Eu. 5 >  THEN 
WRI  rE  (2,2330)  INT  «  T  RNSAC  <  I  ,  2  >  t  ,  INT  '  TRNSml.  ■ 
COUNT 3=CQUN1 3+1 
END  IR 

ouN  r  inije 


ChS  17  1  23 
CAS  1  7  1  33 
CAS  1 7143 
CAS  171  5i. 
CAS  1 7163 
CAS  17  173 
C  A  S  1  7  1  0i. 
CAS  17  1*'. 
CAS  17203 
CAS  172  0. 
CAS  1  72  2> 
CAS1 7233 
CAS  1  724'. 
CAS  1  720t. 
CAS  17263 
CAS  1727.: 
ChS  1  7  28.. 
LHb  1  7  _  1 
ChS  1  '  3.  Ii. 
LAbl  ! 


1,3)1 


WR  1  T  E  <  2 ,  2v  ) 

WR  I  T  E  (  _  ,  2  25 /  I N  T  >  70 T P  y'D  ) 

Er jD  if 

F  uRTTm  r  i  158,  DELIVERY  SUMMARY') 

FORMA!  (T49,  '  TKANSAL  T I ON  ,  T75,  DELIVERY  ) 

FORMAT  - T52,  '  DATE  ,  T 76 ,  AMOUNT  > 

FORMhT  v  ',152,  16,  T  76  ,  Io/ 

FORMAT ( T52 ,  TOTAL',  T74,  IS) 

CLOSE • UN IT =2) 

RETURN 
END 

END  OF  SUBROUTINE  PNTOUT  *t**i 


START  OF  SUBROUTINE  SORT 


_  »«#*♦  SORTS  TRANSACTIONS  AFTER  PLANNED  PROGRESS  PAYMENT  TRANSACTIONS/ 
C  *****  DATES  AND  DATES  FOR:  RECEIPT  OF  DELIVERY  FArMENTS  ARE  C  R  E  A  TED. 

SUBRuU T I NE  SORT ( ARNAME , ROWS , COLMNS , SOR T CM ) 

FEAL  TEMP 

I N I  EGER  ROWS , COLMNS , SORT  CM 
D I  MENS  I  ON  ARNAME i 325 , 20 ) 

DO  140  I  - 1 , ROWS 

DO  120  J  =  1 ,  (  ROWS- 1 ) 

IF  (ARNaME  t  J*-l  ,  SOR  T  CM,1  .  LT  .  ARNaME  <  J  ,  SORT  CM)  /  THEN 
DO  luu  P=l,  COLMNS 
'!  EMP-- ARNAME  (J  ,  f  ) 

ARNaME  i  J  , )  i  =AR'!MaME  >  J  a  1  ,  P  ) 

ARNAME  <J+1  ,  f : )  =  TEFIF' 

IcO  CONTINUE 

END  IF 
I2v  CONTINUE 

14m  CONTINUE 
RETURN 
END 

END  OF  SUBROUTINE  SORT  **♦*-♦*♦*** 


START  OF  SUBROUTINE  YRMuDA 

«■»**«■  USED  W I  TH  I  DhY  10  CONVERT  Y  YMMDD  DAI  ES  TO  DAYS  AFTER  AWARD 

SJBF  OUT  I  NE  Y  P'MGDa  r  R  ,  MO  ,  L'A  ,  J  > 

INI  EGER:  YR  ,  Da 

IF i MO . GE . 3 )  GO  10  1 

M-  MO +  9 

J  -  t  F. -  1  So  1 

GO  I  O  2 

M-MU- 3 

0  --  Y  R  -  1  96M 

J  J  * i 46 1 

I  F  ■  J  .  L  T  .  0  ;  J  -  J  -  3 

•j  —  j  -  4t  i  L53*M+2/  /  5  +  DA 

u  £  i r-j 


E  i  j 


END  uP  sUPRUUTlNt  .  R.MODA 


C  ao  1  74u0 
LAS  1  74  1  i.i 
CAS  1  7  42'. 1 
Cub  1  74  3'.' 
CaS  1  744... 
LAS  1 7450 
CAS  17460 
CAS  1 747  0 
CAS  1 7480 
CAS  1 7490 
CAS  1  7500 
CAS  1 7510 
CAS  1  7520 
CAS  1 7530 
CAS  1  754u 
CmSI ’55" 
CAS  1  756'.' 
CaS  1  75)  ... 
CAS  1  7563' 
CAS  1 ’54 u 
CAS  1  7 o-."  ■ 
CAS  1  -'o  1 ... 
C  A  S  1  7  a  .1 1 . 1 
C  A  S  1  7  6  3  " 
Ca  o  1  7  64'j 
CaS 1  7  6  5v 
CAS  1  7660 
La  Si  o’*.' 
CaSI '66U 
C  AS  1 ’ o  9  0 
CAS  1 77u0 
C  A  S  1  7  7  1  U 
CaS 1 7720 
CASI  7  7  3 
CAS  1  /  74.;. 
LAS  1  7  ’ 
CAS177o" 
CAS'  1  7  7  7  «.• 
CaS  1  '  75'.' 
CASI  7 7  90 
CAS  1  7  S1."'.’ 
CASI 761 v 
CAS  1  7  32v 
LAS  1 7 B 
CASI  ’ B  4  .  j 
Cub  1  7  b  j'.' 
CAS  1  78ou 
CASI  767'.' 
CAS  1 7680 
CAS  1  7 1  ' 

Chs  1  '4'’ 

LAS,  1 
Lift  1 

ChS  1 
Las  1 

L  A  1  '■ 

aA'.j  :  -o1 

Luol  '-7. 
CaS  i  7  4  cS  i 


..  I 


'4  1  ... 


4 


-**-*-*■**■**-*■-# 


SThR.T  uF  SUBF'OUT  INF  FfQUND 


********** 


*****  Ru'JNDo  UUT  F'UT  MATRIX  PRIOR  T  u  F'RINTING  TR;ANSACTIuN  RET  jh  I 

S'JbRGUT  I  NE  ROUND  l  I  RD  ) 

REAL  I R  D ,  I FL 
I  I T  = I N T ( IRD) 

I FL= I RD-  I  IT 
IF  UFL.GE.  (.51  )  THEN 
I RD= I RD-*- 1 
GOTO  13520 
END  IF 

IF ( IFL* (-1 ) . GE. ( . 5) )  THEN 
IRD= IRD+  (-1 ) 

END  IF 
520  RETURN 
END 

**********  END  OF  SUBROUTINE  ROUND  ********** 


l  n  O  V  . 
L  H  .  j  1  d  1 


START  OF  INTEGER  FUNCTION  FDA  V 


*****  USED  WITH  r'FMGDA  TO  CONVERT  YrMMDO  DATES  TO  DATS  AFTER  hWARD  C^Sir..-t' 

C  •  -  r  1  rL 

INTEGER  Function  TDAYiIN) 

INI  EGER  I  ih.  NO,  IDA,  IN  :  ... 

I  rR— IN  /  lOuuO  lh-Tu-5  ' 

I  =  I  y  R *  i  OOvO  -  f  -i--.- 

j  =  i  n  —  i  '-msi 

MO=  J  /  luO  C » - :  1  :  1  1  ' 

I  =MG*  1  00  is  1  »  3_'  > 

I DA= J- I  CAS1E37U 

CmLL  YRMODA  (  1900+1  rR,M0,  IDA,  I  )  Ch  =  i  S:4v 

1  DA  r  =  I  l  i-vu  i  a 

F  E  T URN  ChS 1 8  Cao 

*****  USED  WITH  JYMD  TO  CONVERT  DAYS  AFTER:  AWARD  TO  YYMMDD  DATES  C^SISCV 

ENTRY  I  DATE (IN)  CAS  ISIS. • 

CALL  J  V  MD  (  IN,  I  r  R , MO ,  IDA)  '--’-lb.v- 

I  YR-  (  I  YR— 1900)  *10000  CASiSR'.'U 

MQ=M0*100  ChSIE-4  1'.' 

I  DA  TE= I YR+MO+ IDA  CAS  1 -  4  ' 

RETURN  ChS 1843" 

END  CAS  1  844'.' 

**********  END  OF  INTEGER  FUNCTION  FDA/  **********  CmS’h45" 

CAS1 b4?" 


START  OF  SUBROUTINE  J  Y  ML) 


USED  WITH  (  DhTE  Tu  uUNVERl  Dhi  ^  AF  1 ER  mWmRD  TO  v  t  f'lf'i  I 


SUIT'  OUT  I  NE  J  -  NT'  '  J  ,  i  R  ,  MU  ,  DA  > 
i  *  i  t  u  E  R  r  F  ,  D  A 
I!  •  J  .  GT.  b'J  ?  u  4 
-J  /  14^1-1 

D-i"  J  -  <  i  R*  146;-./  4 


i 


iFv-'4*J-l)  /  1  4  Aj  1 

2  m  ~  J  -  i  t  R  *  1  4  8 1  >  /  4 

!•>:_«=  •  5-*dA-3>  /  153 
i-'H-C'M-  <  153*M0+2>  /  5 
l'-  I- 10- V;  2, 2,1 
fi‘ j  -NO-*-  3 

T  F  —  t  K  ■»■  1  "7  4j  (.1 

ht TURN 
Nu-NO-9 

r  K  = r R+l 98 1 

RETURN 

END 

Lt  - j  UF’T  (  3  ) 

CUBRCiUT  INE  GETSTR (STRNG  ,  DEL  IN ,  SUBSTR  ,  IF  05  > 

CHARACTER*  <*>  STRNG  ,  SUB5TR' ,  DEL  I  M 
i N 1  EGER  *4  IPOS , LENDLM , LENSTR 
I  F  OS  -  I  i  ibE  '/  (51  FNG  ,  DEL  I  M ) 

IF  v IP05.GT.0J  THEN 

LENDLN=LENiDELIM) 
lEN5TR=LEN  <  S 1  RNG ) 

IFilF'OS-l.LE.O)  THEN 
3  U  E  5  T  R  = 

GOTO  100 

END  IF 

SUBSTR=STRNG >. 1 : IPOS-1 ) 

5TRNG=STRNG  IPOS+LENDLM:  LENSTFu 

ELSE 

3UB3TR=3TRN6 
GIF  Nu>  = 

END  1  F 

RETURN 

END 

LESS  OFT >3) 

FUNCTION  REALGV 1 STRNG 1 , IN; 

CHARAl TER*S  El RNG 1 , ST RNG 2 
CHhRhL  TER-*  1  STRhRY  (3) 

I N  TEGER*4  I  ,  J  ,  IDECPL,  INTLN,  I  SIGN,  1ST  RLN  ,  IN,  1  L'ECEC'  '  6 ■'  ,  IPWR 
I  NTEGER*4  I  BLNI  ,  I  BLNF.2 
REAL  REALSV 

LOU  I  VALENCE  (  ST  RNG2  ,  STF  AF'  r  ) 

I  i  RNG  2  —  S T  RNG  1 
J-l 

IBLNf  =0 
I  BLN1 
I  N=0 

I DECPL=0 

ISIGN  =1 

REALSV=0 

DO  1 00  I = 1 , 8 , 1 

I DECEQ ( I ) =  I CHAR (STRhRY ( I ) ) 

IF (  ( 1  DELED ( I )  . LT . 240. OR.  I  DEC  EX'  ■ I ) . GT . 24 9 ) . hND .  *  1  DEC  E X i I) . NE . 75 
1  L  .  I  DECEO  v  I  i  .  NE  .  96  .  AND .  I  DElEu  (  I  )  .  NE .  ii-+  :  >  i  HE  ( j 
IN-1 

uOTU  400 


ChS  i  c  rj R  ■ ' 
lh^; 

Lh^  1  ...  a  i  V 
CHblsoC'.i 
CAi  1  bt  Ci.' 
CAS  15840 
ChS  1  oc/_jO 
ChS 1 SooO 
CAS  1 6a? O 
CAS  1  5830 

ChS  1  dtT'j 

CAS  1 5700 
CAS  15710 
CAS  1 5  7  20 
ChS  1  8  7~~  o 
CAS  18  74'!' 
CAS  15750 
CAS  167 80 
CAS  16770 
C AS  1 B  7  80 
ChS 18790 
CAS  1  38C’C> 
CAS  1  Ec  1 
CAL  1 8320 
CAS  1  88 2  !.* 
CAS  1 8840 
L  f-H r  1  885'.' 
LhS 1 6S&0 
C  H  -  .  1  -•  -  '  ■  . 1 
L H  b  ;  SGeJO 
lhS 1 6890 
CAS  1  99'. i«.< 

C  H  H  1  Et  1  t.l 

CAS  1 S920 
CAS  1 6930 
CAS  1 8940 
LhS 15950 
CAS189&0 
CAS  16970 
CAS  1  Sc  8'.' 

Ch  i  £  -  V1.' 

ChS 1 9oOO 
CAS  190  10 
CAS  1  9C'20 
CAS  1  90  3'.' 
CAS  1  9>.'4o 
ChS  1  4|.'1'0 
CAS  1  90aO 
CAS  1  R1  >7  0 
LhS  1  4  06'.’ 
h  N  h:  1  -- 1  ■ '  1 


L  Hd  M  1  " 

'  hS  1  4  1 


END  IF  LHbl-  I  ' 

IF  •  i  DLCEC"  I  ;  .  ED.  75.  hUD.  IDELFL.  NE.  THEN  LhS  1  f  ;  4 

In  1  Ln-l’-lV 

i  - jTu  400  Lh.-I’I.-- 

E  i  i D  i  F"  L»F  1  ■  I 

IF ■.  I  DELED  I  I  )  .  EO.  r-_j,  IL'ECFL-I  CAblviu 


I  !■  '  1  LECE0  t  I  .  EC1. 9t .  AND  .  I . NE .  1  )  7  HE  N 

Ch-.d:  :- 

1  N  —  1 

i..  f . . .  i  _  'i 

EG  TO  4  no 

ElJi.Hr 

Ir  I  L-c-CEu  (  I  )  .  EG.  96/  1  E1GN=-  1 

L/.r,  l’.T 

[h  '  i  i-'ECEu'i  I  >  -EG.  S4.4ND.  I  BLM  .  E  0 .  1  .hMD.  IBLN1  Z.EO.  2  1  GOTO 

00 

C  H  S  1  9  _  4  1 

I  F  <  I  EEC  EG'  ',  I  .fcQ.e4.HNE'.  I  BLNt  .  EG.  1  .  AND  .  1  fc.LNt  1 .  ED.  O  ;  1  HEN 

1  4  L 

IN=1 

C  A  S  1  92  s 

GOTO  4ou 

0  A  S  1  4  _  7 1 

END  IF 

CAS  1928' 

I  F  ■  I  DfcCED  (  I  )  .  EU .  64  .  AND .  I  B;LN(  .  EG .  0 )  T HEN 

LmS  in- 

IBLNE=1 

CAS  i  -t  ; i _j ‘ 

I  N=  I 

ChS  i  9 i' 

I &LNE2= 1 

CAS  1 9 22 

607  0  1  ou 

L>ol  9  2,2' 

END  IF 

CAS  1  974' 

I  BLNt  2  =  0 

Chi  1 9 22. 

I N= I + 1 

CAS  1 9  Of 

CONT I NUE 

ChS  1  937' 

IF  <  I5I6N. EQ. -1 . AND.  IN. EQ. 2i  THEN 

CAS  1  973' 

I  N=  1 

CAS  1- '29' 

GOTO  400 

Ch  b  i  9  4 

END  IF 

LhiI -4 1  1 

I F  (  1  DE  C  F‘  L .  G  T  .  0 )  THEN 

ChS  1942' 

I NTLN= I DElF  L- 1 

C  A  S  1  9  4  2 1 

I 5  TRLN  = I N- 1 

C  A  S  1  9  4  4 ' 

ELSE 

C'-.:  2  -42 

I NTLN= IN- 1 

2  •  1 1  9  9  :: 

I  ST F  LN- I N  F LN 

.HI i - 4 

END  I  F 

LhiI  - 4 -  ' 

IFH  ISI6N. EQ. -1 »  THEN 

ChS i 94  9  > 

J  =2 

CAS  1  92,,;., 

I NTLN= I NTLN- 1 

C-sGCl 

END  I  F 

!  .  H  I  i  -  2  .  ’ 

I PwF = I NTLN- 1 

ChS i  92  2 ' 

L’U  3oO  I  =J  ,  ISTRLN  ,  I 

C a: 1 924 

IF  i 1  DEC EG (  I )  . EQ. 75;  THEN 

Ch6  1  r  1  2- 

GOTO  300 

ChS  1  9  joj 

END  IF 

CAS  192  7' 

F  Ehi_  3  V  =  <  I  DEC  EG  <  I  >  -24' j  .  )  *  (  1  0 .  -»  »  (  I  F  WR  /  >  +RE  ALSO 

CAS  1  -2  S' 

I - W F -  I F wR  — 1 

CAS1  4 

CONTINUE 

Chi  1  9  6'" 

RE  hLSV=REhLS V* I S I GN 

C  A  S  i  9  &  1  i 

RETURN 

ChS  1  962' 

END 

CAS  1  962" 

55  OFT (3) 

C  A  6  1  9  4 , 

F  UNCI  ION  INTSTV (51 RNG1  ,  IN) 

LhH  9 c •_ 

CHARhC TER* < * )  STRNG1 

CAS  1  Ico' 

CHAF  ACT  ER*B  STRN62 

Ch'.  1  V/L  ■' 

CHARACrER*l  STRhF.t  '"8/ 

L.H.,  1  4  i 

INTEGER  *4  I  ,  J  ,  1  N  ,  I  DE  LEl  1  1  t  '  .  I  f-  OF  ,  I  :  I  of  j ,  i  I<l.  Mi  ,  i  hi  Nj  . 

AE-1  W  - 

EC1  U  I  ALE'  jCE  i  5  T  hi  j'  i..  ,  G  2  RAF  i  i 

.  1  t  . " 

5  F  h  NO.  -5 7  R I  Ji.r  1 

L  M  1  '  *  1  1 

I  EL.NJ 

4  ’  .  1 

L  m  ;  •  ]  • 

hun  _-u 

L.  R  i  l  '  • 

1(4- 

I  TGI  I 

: .  o  i  .  " 

•  ' 

1  . o"  I  -  1  ,  a  ,  1 

i  L-t _E0  I  ■  =  1  LHri&  ■  ST  F  hR  r  i  I  ;  i 

i  r-  v  .  1  L'b  !_  Eu  -  I  ;  .  ■ .  T  .  _4‘_i .  OR  .  i  LE-  F.C1  v  I  )  .  ij  T  .  ..  4  -  '  .  41  Jij  .  I  DE1  - 1 
1.  lit  _t-L'  I  .  NE  .  -s4  )  i  HEN 
14-1 

GO  '0  4 ■ 1  _ 1 

END  IP 

i  F  1  1  DllLl1  '  I  .  EL. .  4  a  .  mNL’  -  1  ■  NE  .  1  >  1  HE.N 

I  N=  1 

GOTO  400 
END  IF 

IF  v  I  DECEQ  (  I  )  .  EQ  .  Ffa  >  ISICN=  -1 

I F  1.  I  DEC  EG  t,  I  )  .  EG.  64.  AND.  IBLNF. EG.  1  .  AND.  I  BLN!  2.  EQ.  1  ) 
IF  v  IL'ElEQ  II).  EG.  t4.  AND.  IBLNF  .  EQ.  1  .  AND.  IBLNI  _.  EQ.  0) 

I  N=  1 

GOTO  400 
END  i  F 

If-  ■  I  L'ECEO  <  I  >  .EG.  64.  AND.  IBLNI  .  EQ.O)  THEN 
I  BLNI-  =  1 
I N-  I 

IBLNI  2=1 
GOTO  1  00 
END  IF 
IBLNI  2=0 
I  U=  I  1-  i 
CON T INUE 

IF. ISI ON. EQ. -1 . AND. IN. EG. 2)  THEN 
1  N=  1 

SO  TO  400 
EHD  IF 

I  6  i  P  L  N  =  I  N  —  I 
IF  ilSlSN. ED. -1 )  THEN 

I  F'WR=  I STRLN-2 

ELSE 

I  F'WR  =  I  STF.LN-  1 

END  IF 

DO  200  I  =  J  ,  I  ST  RLN  ,  1 

INTSTV=  ( IDECEQ < I ) -240) * ( 10**IFWR) +INTSTV 
IFWF-iPNF-1 
I  i  ITS TV= IN  TS "V+I5IGN 
F  E  i  L  ■  F  N 


1 ) . NE . 9a . hND  L 


GOTO  100 
THEN 


L  h  t.  I  —  S  1 

Lh; 1 --C . 
L«i  1  t) 
Chji  9b4  .i 
L  t~i  rs  1  "7  a  L 1 . ' 

ChH  4 66'.. 
CmS  1-8“'.' 
C  A  8  1  4  6  8 
L  AS  1  4  fc  - 
CAS  I  9900 
CAS  19910 
CAS  1  992'!' 
CAS  1  9-2 
CAS  1  9940 
CAS  19  =  5',' 
CAS  1 99«0 
l  AS  1  997 
CAS  1  993'.’ 
CAS  1  999'!' 


CAS2< 


L  AS  I_\ 

CAS2> 

CAS21 


CAS20090 
CAS  21.'  1 00 
CAS 20 1 10 

CAB  ^01  2 
CmS2'.>  1  4..' 
CAS2 '.'  1  5'.' 
CASIO  1  6'1' 
CASIO  1 70 
CASIO  1 80 


